OFFSET
1,1
MATHEMATICA
s={3}; a=4; Do[Do[If[Plus@@Last/@FactorInteger[(a+x)(x-a+1)/2]==2, a=x+1; AppendTo[s, x]; Break[]], {x, a, 20000}], {k, 1, 100}]; A109826=s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 03 2005
STATUS
approved