OFFSET
1,1
COMMENTS
Conjecture: this is exactly the sequence whose terms are twice those of A009003. (This has been verified for all terms<=500.) Compare A009003. - John W. Layman, Mar 12 2008
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
A072591(a(n)) = 0.
MATHEMATICA
opfQ[n_]:=Count[Transpose[FactorInteger[n]][[1]], _?(IntegerQ[ (#-1)/4]&)]>0; Select[Range[2, 250, 2], opfQ] (* Harvey P. Dale, Jun 02 2012 *)
PROG
(Python)
from itertools import count, islice
from sympy import primefactors
def A072592_gen(startvalue=1): # generator of terms >= startvalue
return (n<<1 for n in count(max(startvalue, 1)) if any(p&3==1 for p in primefactors(n)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 23 2002
STATUS
approved
