|
%I #3 Mar 30 2012 17:26:17
%S 3,4,8,9,10,15,17,20,21,22,35,38,39,42,44,46,48,49,53,59,61,62,68,69,
%T 71,73,74,88,92,93,94,95,98,103,105,106,108,110,111,114,115,125,127,
%U 134,139,143,145,146,148,150,152,158,159,161,164,169,171,174,178,183,189
%N Final terms of groups in the partition of the sequence of natural numbers A109411.
%t 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
%Y Cf. A109411, A109825.
%K nonn
%O 1,1
%A _Zak Seidov_, Jul 03 2005
|
