login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

LINKS

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

P. 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

Sequence in context: A140037 A107209 A076613 * A238671 A269575 A177032

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified September 24 04:27 EDT 2017. Contains 292403 sequences.