OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
FORMULA
MATHEMATICA
a[n_]:= a[n]= Sum[j*Floor[Log[GoldenRatio, 3/2 +j*Sqrt[5]]], {j, 0, n}];
Table[a[n], {n, 0, 70}] (* G. C. Greubel, Mar 18 2023 *)
PROG
(Magma) [(&+[j*Floor(Log(3/2 +j*Sqrt(5))/Log((1+Sqrt(5))/2)): j in [0..n]]): n in [0..70]]; // G. C. Greubel, Mar 18 2023
(SageMath)
def A130238(n): return sum(j*int(log(3/2 +j*sqrt(5), golden_ratio)) for j in range(n+1))
[A130238(n) for n in range(71)] # G. C. Greubel, Mar 18 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, May 17 2007
STATUS
approved