

A068652


Numbers such that every cyclic permutation is a prime.


15



2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 79, 97, 113, 131, 197, 199, 311, 337, 373, 719, 733, 919, 971, 991, 1193, 1931, 3119, 3779, 7793, 7937, 9311, 9377, 11939, 19391, 19937, 37199, 39119, 71993, 91193, 93719, 93911, 99371, 193939, 199933, 319993
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..46.


EXAMPLE

197 is a member as all the three cyclic permutations 197,971,719 are primes.


MATHEMATICA

fQ[p_] := Module[{b = IntegerDigits[p]}, And @@ Table[PrimeQ[FromDigits[b = RotateLeft[b]]], {Length[b]  1}]]; Select[Prime[Range[100000]], fQ] (* T. D. Noe, Mar 22 2012 *)
ecppQ[n_]:=AllTrue[FromDigits/@Table[RotateLeft[IntegerDigits[n], i], {i, IntegerLength[n]}], PrimeQ]; Select[Range[400000], ecppQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 25 2015 *)


CROSSREFS

Cf. A003459, A016114.
Sequence in context: A107845 A234901 A090934 * A003459 A202264 A253717
Adjacent sequences: A068649 A068650 A068651 * A068653 A068654 A068655


KEYWORD

base,nonn,changed


AUTHOR

Amarnath Murthy, Feb 28 2002


EXTENSIONS

More terms from Martin Renner, Apr 10 2002


STATUS

approved



