A114513 Number of terms in s(n), where s(n) is defined at sequence A114511.

1, 3, 5, 7, 9, 13, 15, 21, 23, 31, 33, 35, 37, 47, 49, 63, 65, 67, 69, 71, 75, 91, 93, 115, 117, 119, 121, 123, 127, 129, 135, 159, 161, 193, 195, 229, 231, 267, 269, 271, 273, 275, 279, 281, 287, 289, 297, 335, 337, 385, 387, 389, 391, 393, 397, 399, 405, 407

Offset

0,2

Links

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

Example

s(3), as defined at A114511, is {0,0,0,0,1,0,2}; so a(3) = 7.

Mathematica

s[0] = {0}; s[n_] := s[n] = Flatten[{s[n - 1], s[s[n - 1][[n]]], {n - 1}}]; Table[Length[s[n]], {n, 0, 57}] (* Ray Chandler, Dec 05 2005 *)

Crossrefs

Cf. A114511.

Sequence in context: A157048 A190857 A003543 * A191186 A174572 A218584

Adjacent sequences: A114510 A114511 A114512 * A114514 A114515 A114516

Keyword

easy,nonn

Author

Leroy Quet, Dec 03 2005

Extensions

Extended by Ray Chandler, Dec 05 2005

Status

approved