| 3, 4, 8, 9, 10, 15, 17, 20, 21, 22, 35, 38, 39, 42, 44, 46, 48, 49, 53, 59, 61, 62, 68, 69, 71, 73, 74, 88, 92, 93, 94, 95, 98, 103, 105, 106, 108, 110, 111, 114, 115, 125, 127, 134, 139, 143, 145, 146, 148, 150, 152, 158, 159, 161, 164, 169, 171, 174, 178, 183, 189
(list; graph; listen)
|
|
|
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
|
Cf. A109411, A109825.
Sequence in context: A089290 A019811 A075746 this_sequence A057549 A047460 A068056
Adjacent sequences: A109823 A109824 A109825 this_sequence A109827 A109828 A109829
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Jul 03 2005
|
|
