A169739 a(n) = A030068(4n+1).
1, 3, 6, 11, 17, 26, 37, 53, 70, 93, 119, 154, 191, 239, 292, 361, 431, 518, 611, 727, 846, 991, 1145, 1334, 1525, 1753, 1992, 2279, 2571, 2916, 3277, 3707, 4138, 4639, 5157, 5762, 6373, 7077, 7804, 8647, 9493, 10458, 11449, 12585, 13730, 15029, 16363, 17886, 19411
Offset: 0
Keywords
Links
- N. J. A. Sloane, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
f[1]=1; f[n_?EvenQ]:=f[n]=f[n/2]; f[n_?OddQ]:=f[n]=f[n-1]+f[n-2]; a[n_]:=f[2*n+1]; Table[a[n], {n, 0, 100, 2}] (* Vincenzo Librandi, May 27 2019 *)
Formula
a(n) = A030067(4n-3). - George Beck, Jan 18 2020
Comments