OFFSET
1,3
FORMULA
EXAMPLE
a(11) = 145 since Fibonacci(11) = 89 and 8^2 + 9^2 = 64+81 = 145.
MAPLE
A003132 := proc(n) local d; add(d^2, d=convert(n, base, 10)) ; end proc:
A181357 := proc(n) A003132(combinat[fibonacci](n)) ; end proc: seq(A181357(n), n=1..90) ; # R. J. Mathar, Oct 15 2010
MATHEMATICA
Table[Total[IntegerDigits[Fibonacci[n]]^2], {n, 60}] (* Harvey P. Dale, Jan 20 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Carmine Suriano, Oct 14 2010
STATUS
approved