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,1

Links

Table of n, a(n) for n=0..12.

Patrick De Geest, Circular primes

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

Cf. A002385, A270083.

Sequence in context: A140037 A107209 A076613 * A325071 A238671 A269575

Adjacent sequences: A045975 A045976 A045977 * A045979 A045980 A045981

Keyword

fini,nonn,base

Author

Carlos Rivera

Extensions

Corrected by Jud McCranie, Jan 04 2001

Status

approved