A343265 a(n) is the number of ways n can be reached starting from 0 and using only two operations: adding one or, once n > 1, squaring.

1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13

Offset

0,5

Links

Table of n, a(n) for n=0..80.

Formula

a(n) = a(n-1) + a(sqrt(n)) if n is a square or a(n-1) otherwise.

Mathematica

a[0]:=1; a[n_]:=If[IntegerQ[Sqrt[n]], a[n-1]+a[Sqrt[n]], a[n-1]]; Table[a[n], {n, 0, 80}] (* Stefano Spezia, May 06 2021 *)

Crossrefs

Cf. A097046.

Sequence in context: A350174 A000196 A111850 * A059396 A108602 A305025

Adjacent sequences: A343262 A343263 A343264 * A343266 A343267 A343268

Keyword

nonn

Author

James P. B. Hall, Apr 09 2021

Status

approved