OFFSET
1,1
COMMENTS
These are the primes whose digits can be permuted to give a substring of 0123456789.
This sequence has exactly 6744 terms, none of which are 3-digit, 6-digit, 9-digit, or 10-digit numbers because these are all divisible by 3. The last term is 98745623. - Chris K. Caldwell
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..6744 (full sequence)
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 2543
EXAMPLE
a(12)=2543 can be arranged as 2345.
109 is not a term since 019 is not a substring of 0123456789.
MAPLE
A177119:={}: for d from 1 to 5 do for s from 0 to 10-d do l:=combinat[permute]([$(s..(s+d-1))]): for k from 1 to d! do n:=add(10^(d-j)*l[k][j], j=1..d): if(isprime(n))then A177119 := A177119 union {n}: fi: od: od: od: op(A177119); # Nathaniel Johnston, Jun 23 2011
MATHEMATICA
(* computes all terms *) Reap[Do[p=Prime[n]; If[p<10 || Union[Differences[Sort[IntegerDigits[p]]]] == {1}, Sow[p]], {n, PrimePi[98765432]}]][[2, 1]] (* T. D. Noe, Dec 10 2010 *)
lst = {}; Do[AppendTo[lst, Select[FromDigits /@ Permutations@Range[n, d + n - 1], PrimeQ[#] &]], {d, 5}, {n, 0, 10 - d}]; Union@Flatten[lst] (* Arkadiusz Wesolowski, Jan 07 2013 *)
Join[{2, 3, 5, 7}, Select[Prime[Range[57*10^5]], Union[Differences[Sort[IntegerDigits[#]]]]=={1}&]] (* Harvey P. Dale, Jun 20 2023 *)
CROSSREFS
KEYWORD
nonn,easy,fini,full,base
AUTHOR
G. L. Honaker, Jr., Dec 09 2010
EXTENSIONS
Extended by Chris K. Caldwell
Edited by N. J. A. Sloane, Jan 22 2011
STATUS
approved