|
|
A217841
|
|
Fermat pseudoprimes n to base 3 for which sqrt(8*n + 1) is an integer.
|
|
2
|
|
|
91, 703, 1891, 2701, 7381, 8911, 10585, 12403, 16471, 18721, 29161, 38503, 41041, 49141, 79003, 88831, 93961, 104653, 115921, 146611, 188191, 218791, 226801, 269011, 286903, 314821, 334153, 364231, 385003, 497503, 534061, 597871, 665281, 721801, 736291, 765703, 873181, 954271, 1056331, 1237951
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(PARI) list(lim)=my(v=List(), n); lim\=1; forstep(k=27, sqrtint(8*lim+1), 2, n=k^2>>3; if(Mod(3, n)^(n-1)==1, listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Jun 30 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|