|
|
|
|
2, 5, 9, 16, 23, 35, 48, 69, 87, 116, 145, 189, 228, 287, 345, 430, 501, 605, 704, 843, 965, 1136, 1299, 1523, 1716, 1981, 2231, 2566, 2863, 3261, 3638, 4137, 4569, 5140, 5675, 6367, 6984, 7781, 8531, 9490, 10339, 11423, 12440, 13721, 14875, 16328, 17697, 19409
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
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[4*n+3]; Table[a[n], {n, 0, 100}] (* Vincenzo Librandi, May 27 2019 *)
|
|
PROG
|
(PARI) {f(n) = if(n==1, 1, if(n%2==0, f(n/2), f(n-1) + f(n-2)))};
(Sage)
def f(n):
if (n==1): return 1
elif (n%2==0): return f(n/2)
else: return f(n-1) + f(n-2)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|