OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[3, 431, 4], Union[Mod[Transpose[FactorInteger[#]][[1]], 4]] == {3}&] (* Harvey P. Dale, Apr 28 2012 *)
PROG
(PARI) {forstep(n=3, 440, 4, fac=factor(n); if(vecmin(vector(matsize(fac)[1], j, fac[j, 1])%4)==3, print1(n, ", ")))} \\ Klaus Brockhaus, May 08 2004
(PARI) is(n)=if(n%4<3, return(0)); Set(factor(n)[, 1]%4)==[3] \\ Charles R Greathouse IV, Jan 20 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, May 06 2004
EXTENSIONS
More terms from Klaus Brockhaus, May 08 2004
STATUS
approved