Primes with digits in nondecreasing order: Difference between revisions

Content added Content deleted
(Added Visual Basic .NET, (translation of C#).)
Line 233: Line 233:
const range = 2:999
const range = 2:999


for base in [2:10...;[10, 17, 27, 31, 62]]
for base in [2:10...;[16, 17, 27, 31, 62]]
primes = filter(n -> isprime(n) && issorted(digits(n, base=base), rev=true), range)
primes = filter(n -> isprime(n) && issorted(digits(n, base=base), rev=true), range)
println("\nBase $base: ", length(primes), " non-descending primes between 1 and ",
println("\nBase $base: ", length(primes), " non-descending primes between 1 and ",
Line 272: Line 272:
277 337 347 349 359 367 379 389 449 457 467 479 499 557 569 577
277 337 347 349 359 367 379 389 449 457 467 479 499 557 569 577
599 677
599 677
Base 10: 50 non-descending primes between 1 and 677:
Base 16: 88 non-descending primes between 1 and 3df:
2 3 5 7 11 13 17 19 23 29 37 47 59 67 79 89
2 3 5 7 b d 11 13 17 1d 1f 25 29 2b 2f 35
113 127 137 139 149 157 167 179 199 223 227 229 233 239 257 269
3b 3d 47 49 4f 59 67 6b 6d 7f 89 8b 9d ad bf df
277 337 347 349 359 367 379 389 449 457 467 479 499 557 569 577
ef 115 119 11b 125 133 137 139 13d 14b 15b 15d 167 16f 17b 17f
18d 199 1af 1bb 1cd 1cf 1df 223 22d 233 239 23b 24b 257 259 25f
599 677
269 26b 277 28d 2ab 2bd 2cf 2dd 2ef 335 337 33b 33d 347 355 359
35b 35f 36d 377 38b 38f 3ad 3df
Base 17: 82 non-descending primes between 1 and 37b:
Base 17: 82 non-descending primes between 1 and 37b:
2 3 5 7 b d 12 16 1c 1e 23 27 29 2d 38 3a
2 3 5 7 b d 12 16 1c 1e 23 27 29 2d 38 3a
Retrieved from "https://rosettacode.org/wiki/Primes_with_digits_in_nondecreasing_order"