OFFSET
1,1
REFERENCES
L. E. Dickson, History of the Theory of Numbers. Carnegie Institute Public. 256, Washington, DC, Vol. 1, 1919; Vol. 2, 1920; Vol. 3, 1923, see vol. 2, p. 476.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory); s:=[];
for n from 1 to 1000 do p:=ithprime(n); p2:=((p+16) mod 8);
if (p2=3) or (p2=5) then sw:=1;
for q in factorset(p-1) do if (q mod 4) = 1 then sw:=-1; break; fi; od:
if sw=1 then s:=[op(s), p]; fi;
fi;
od:
s;
MATHEMATICA
Select[Range[1500], MemberQ[{3, 5}, Mod[#, 8]] && PrimeQ[#] && AllTrue[FactorInteger[# - 1][[;; , 1]], Mod[#1, 4] != 1 &] &] (* Amiram Eldar, Dec 05 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 16 2019
STATUS
approved