[go: up one dir, main page]

login
A045978
Palindromic primes that are "near miss circular primes" (all cyclic shifts except one are primes).
3
101, 181, 191, 313, 727, 757, 787, 797, 13931, 71317, 73237, 77977, 7791977
OFFSET
0,1
MATHEMATICA
NearCyclPrmsUpTo10powerK[k_]:= Union@Flatten[Table[ParallelMap[If[IntegerDigits[#]== Reverse@IntegerDigits[#] && (Count[FromDigits/@
NestList[RotateLeft, IntegerDigits[#], IntegerLength[#]-1], _?PrimeQ] ==IntegerLength[#]-1), #, Nothing]&, Select[FromDigits/@ Tuples[{1, 2, 3, 5, 7, 8, 9, 0}, n], PrimeQ]], {n, 3, k}], 1]; NearCyclPrmsUpTo10powerK[7] (* Mikk Heidemaa, Apr 26 2017 *)
CROSSREFS
Sequence in context: A140037 A107209 A076613 * A325071 A238671 A269575
KEYWORD
fini,nonn,base
AUTHOR
EXTENSIONS
Corrected by Jud McCranie, Jan 04 2001
STATUS
approved