OFFSET
1,1
COMMENTS
a(n)/2 are primes with final digit 3 or 7 among primes in a related sequence: "m such that the period of Fibonacci numbers mod m equals 2*(m+1)".
PROG
(PARI) for(n=2, 4000, t=3*(n+2); good=1; if(fibonacci(t)%n==0, for(s=0, t, if(fibonacci(t+s)%n!=fibonacci(s)%n, good=0; break); if(s>1&&s<t-1&&fibonacci(s)%n==0, cur=s; good2=1; for(ss=0, s, if(fibonacci(ss+s)%n!=fibonacci(ss)%n, good2=0; break)); if(good2, good=0; break); ); ); if(good, print1(n, ", ")))) (Klasen)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 04 2002
EXTENSIONS
More terms from Lambert Klasen (Lambert.Klasen(AT)gmx.net), Dec 21 2004
STATUS
approved