login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

a(n) = Sum (A005214(k): 1 <= k <= n).

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

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

Cf. A000217, A000290, A000292, A000330.

Sequence in context: A110895 A049628 A063757 * A079328 A073612 A227621

Adjacent sequences:  A193708 A193709 A193710 * A193712 A193713 A193714

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Aug 03 2011

EXTENSIONS

Program and b-file corrected by Reinhard Zumkeller, Aug 04 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 12 22:16 EST 2019. Contains 329079 sequences. (Running on oeis4.)