login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes that are not cyclic numbers (A001913).
0

%I #6 Mar 31 2012 10:24:26

%S 2,3,5,11,13,31,37,41,43,53,67,71,73,79,83,89,101,103,107,127,137,139,

%T 151,157,163,173,191,197,199,211,227,239,241,251,271,277,281,283,293,

%U 307,311,317,331,347,349,353,359,373,397,401,409,421,431,439,443,449,457,463,467,479

%N Primes that are not cyclic numbers (A001913).

%C Sequence A006559 with 2 and 5 included.

%p f1 := proc(n) local st, period:

%p st := ithprime(n):

%p period := numtheory[order](10,st):

%p if (st-1 <> period) then

%p RETURN(st):

%p fi: end: seq(f1(n), n=1..150);

%K nonn

%O 1,1

%A _Jani Melik_, Feb 24 2011