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