The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A067868 a(n) = a(n-1) + a(floor(n/2))^2 for n > 0, a(0) = 1. 3
 1, 2, 6, 10, 46, 82, 182, 282, 2398, 4514, 11238, 17962, 51086, 84210, 163734, 243258, 5993662, 11744066, 32120262, 52496458, 178789102, 305081746, 627715190, 950348634, 3560128030, 6169907426, 13261231526, 20352555626, 47161378382, 73970201138, 133144655702, 192319110266 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS G. C. Greubel, Table of n, a(n) for n = 0..1000 MATHEMATICA a[n_]:= a[n] = If[n==0, 1, a[n-1] + (a[Floor[n/2]])^2]; Table[a[n], {n, 0, 50}] (* G. C. Greubel, Feb 10 2021 *) PROG (PARI) a(n) = if (n==0, 1, a(n-1)+a(n\2)^2); (Sage) def a(n): return 1 if n == 0 else a(n-1) + (a(n//2))^2 [a(n) for n in range(50)] # G. C. Greubel, Feb 10 2021 (Magma) [1] cat [n le 2 select Factorial(n+1) else Self(n-1) + (Self(Floor(n/2)))^2: n in [1..51]]; // G. C. Greubel, Feb 10 2021 CROSSREFS Cf. A000123, A056520, A058039. Sequence in context: A258899 A248784 A341337 * A298760 A153803 A083524 Adjacent sequences: A067865 A067866 A067867 * A067869 A067870 A067871 KEYWORD nonn AUTHOR Reinhard Zumkeller, Feb 16, 2002 EXTENSIONS Corrected name and more terms from Michel Marcus, Feb 05 2021 STATUS approved

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

Last modified July 17 23:53 EDT 2024. Contains 374377 sequences. (Running on oeis4.)