|
%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
|
