|
%I #10 Apr 21 2015 12:29:49
%S 5,22,59,64,165,170,367,624,629,1030,1035,1612,2289,2294,2311,2316,
%T 2329,3626,3631,5232,5237,5250,5279,5284,5325,5330,8247,11384,11389,
%U 11402,11407,11424,15781,15786,15799,15804,21281,21334,21339,21376
%N Partial sums of A256970.
%D Richard Friedberg, An Adventurer's Guide to Number Theory, McGraw-Hill, NY, 1968.
%D Popular Computing (Calabasas, CA), Friedberg's Sequence, Vol. 5 (No. 46, Jan 1977), page PC46-2.
%H Reinhard Zumkeller, <a href="/A256971/b256971.txt">Table of n, a(n) for n = 1..10000</a>
%t Accumulate[Table[FactorInteger[4*n^2+1][[1,1]],{n,40}]] (* _Ivan N. Ianakiev_, Apr 20 2015 *)
%o (Haskell)
%o a256971 n = a256971_list !! (n-1)
%o a256971_list = scanl1 (+) a256970_list
%Y Cf. A053755, A256970.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Apr 19 2015
|
