OFFSET
0,1
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 0..10000
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)))};
vector(50, n, n--; f(4*n+3)) \\ G. C. Greubel, May 29 2019
(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)
[f(4*n+3) for n in (0..50)] # G. C. Greubel, May 29 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 02 2010
STATUS
approved