OFFSET
1,3
COMMENTS
a(22) > 20169. - Jinyuan Wang, Jan 21 2020
a(25) > 50000. - Michael S. Branicky, Oct 28 2024
MATHEMATICA
Do[ If[ PrimeQ[ 10*7^n + 1], Print[n]], {n, 1, 1000}]
PROG
(PARI) is(n)=ispseudoprime(10*7^n+1) \\ Charles R Greathouse IV, Jun 12 2017
CROSSREFS
KEYWORD
nonn,more,changed
AUTHOR
Robert G. Wilson v, Sep 08 2000
EXTENSIONS
First term 0 inserted by and a(18)-a(21) from Jinyuan Wang, Jan 21 2020
a(22)-a(23) from Michael S. Branicky, Mar 20 2024
a(24) from Michael S. Branicky, Oct 28 2024
STATUS
approved