|
|
A301635
|
|
Numbers k such that 5^k + 5*k + 1 is prime.
|
|
3
|
|
|
0, 1, 11, 25, 35, 85, 499, 1403, 3511, 3739, 8005
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Flatten[{0, Select[Range[1000], PrimeQ[5^# + 5*# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
|
|
PROG
|
(PARI) for(n=0, 500, if(isprime(5^n+5*n+1), print1(n", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|