login
A193711
Partial sums of union of squares and triangular numbers.
2
1, 4, 8, 14, 23, 33, 48, 64, 85, 110, 138, 174, 219, 268, 323, 387, 453, 531, 612, 703, 803, 908, 1028, 1149, 1285, 1429, 1582, 1751, 1922, 2112, 2308, 2518, 2743, 2974, 3227, 3483, 3759, 4048, 4348, 4672, 4997, 5348, 5709, 6087, 6487, 6893, 7328, 7769, 8234
OFFSET
1,2
COMMENTS
a(n) = Sum (A005214(k): 1 <= k <= n).
LINKS
MATHEMATICA
Module[{upto=500, sq, tr}, sq=Range[Floor[Sqrt[upto]]]^2; tr=Accumulate[ Range[ Floor[ (Sqrt[1+8*upto]-1)/2]]]; Accumulate[Union[Join[tr, sq]]]] (* Harvey P. Dale, Jun 24 2018 *)
PROG
(Haskell)
a193711 n = a193711_list !! (n-1)
a193711_list = scanl1 (+) a005214_list :: [Integer]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 03 2011
EXTENSIONS
Program and b-file corrected by Reinhard Zumkeller, Aug 04 2011
STATUS
approved