A045978 Palindromic primes that are "near miss circular primes" (all cyclic shifts except one are primes).

101, 181, 191, 313, 727, 757, 787, 797, 13931, 71317, 73237, 77977, 7791977

Offset: 0

Author

Carlos Rivera

Keywords

• fini
• nonn
• base

Links

• Patrick De Geest, Circular primes

Crossrefs

Cf. A002385, A270083.

Programs

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

Extensions

Corrected by Jud McCranie, Jan 04 2001