A156119 Primes formed by rearranging five consecutive decimal digits (avoiding leading 0).

10243, 12043, 20143, 20341, 20431, 23041, 24103, 25463, 25643, 30241, 32401, 36457, 40123, 40213, 40231, 41023, 41203, 42013, 43201, 45263, 45673, 45763, 46523, 46573, 47563, 47653, 54367, 54623, 54673, 56437, 56473, 56897, 57689, 58679, 58967, 65423

Offset

1,1

Comments

No primes can be formed from {1,2,3,4,5} or {4,5,6,7,8} since they are divisible by three.

Sequence is finite, ending with a(52)=96857.

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..52 (full sequence)

Maple

A156119:={}: for s from 0 to 5 do l:=combinat[permute]([$(s..(s+4))]): for k from 1 to 120 do if(k>=25 or s>=1)then n:=add(10^(5-j)*l[k][j], j=1..5): if(isprime(n))then A156119 := A156119 union {n}: fi: fi: od: od: op(A156119); # Nathaniel Johnston, Jun 23 2011

Mathematica

Flatten[Table[Select[FromDigits/@Permutations[Range[n, n+4]], IntegerLength[#]==5 && PrimeQ[#]&], {n, 0, 5}]]//Sort (* Harvey P. Dale, Mar 01 2023 *)

Crossrefs

Cf. A177119.

Sequence in context: A254563 A074671 A235157 * A109176 A187796 A157735

Adjacent sequences: A156116 A156117 A156118 * A156120 A156121 A156122

Keyword

nonn,base,easy,fini,full

Author

Ki Punches, Feb 14 2009

Extensions

Edited and extended by Ray Chandler, Feb 16 2009

Status

approved