|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|