A104909 a(n) = A104908(n) - 10*A104863(n).
0, 0, 6, 5, 7, 11, 15, 24, 36, 51, 70, 93, 125, 163, 214, 274, 348, 445, 570, 728, 926, 1181, 1505, 1918, 2440, 3108, 3954, 5035, 6403, 8152, 10366, 13196, 16788, 21357, 27172, 34562, 43969, 55928, 71150, 90509, 115128, 146446, 186287, 236964, 301424, 383419
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
A104863[n_]:= A104863[n]= If[n<3, 10*(2*n-1), Floor[Sqrt[A104863[n-1]^2 + A104863[n - 2]^2]]]; A104908[n_]:= A104908[n]= If[n<3, 100*(2*n-1), Floor[Sqrt[A104908[n-1]^2 + A104908[n-2]^2]]]; A104909[n_]:= A104908[n] -10*A104863[n]; Table[A104909[n], {n, 60}] (* G. C. Greubel, Jun 27 2021 *)
Extensions
Terms a(33) onward added by G. C. Greubel, Jun 27 2021