This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181361 #13 Jul 31 2025 19:30:07 %S A181361 0,1,1,8,27,125,512,28,9,91,250,1241,129,62,713,217,1584,1198,709,578, %T A181361 900,1010,689,1204,1035,601,793,1523,885,935,611,1261,1620,1204,1843, %U A181361 1493,981,1397,2726,1897,378,1045,2314,1409,1317,1193,1541,1585,2556,2749 %N A181361 Sum of cubes of digits of Fibonacci(n). %H A181361 Robert Israel, <a href="/A181361/b181361.txt">Table of n, a(n) for n = 0..10000</a> %F A181361 a(n) = A055012(A000045(n)). - _Michel Marcus_, Jul 18 2013 %e A181361 a(11) = 1241 since Fibonacci(11) = 89 and 8^3+9^3 = 512+729 = 1241. %p A181361 f:= proc(n) local t; add(t^3, t = convert(combinat:-fibonacci(n),base,10)) end proc: %p A181361 map(f, [$0..100]); # _Robert Israel_, Jul 31 2025 %t A181361 Total[IntegerDigits[#]^3]&/@Fibonacci[Range[50]] (* _Harvey P. Dale_, Mar 25 2012 *) %Y A181361 Cf. A000045, sum of digits A004090, sum of squared digits A181357. %K A181361 nonn,base %O A181361 0,4 %A A181361 _Carmine Suriano_, Oct 15 2010 %E A181361 a(0) = 0 inserted by _Robert Israel_, Jul 31 2025