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

Author

Ki Punches, Feb 14 2009

Keywords

• nonn
• base
• easy
• fini
• full

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)

Crossrefs

Cf. A177119.

Programs

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 *)

Extensions

Edited and extended by Ray Chandler, Feb 16 2009