|
%I #14 Sep 08 2022 08:45:33
%S 2,1,3,4,7,2,9,11,11,13,6,19,7,8,15,14,11,16,27,25,16,23,21,26,20,28,
%T 21,22,25,29,36,20,38,40,24,28,34,26,33,23,38,34,54,43,52,41,30,62,47,
%U 46,39,49,43,47,45,47,47,58,33,73,43,53,33,68,56,70,45,43
%N Digit sum of Lucas numbers.
%H Irene Sermon, <a href="/A139374/b139374.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A007953(A000032(n)). - _Michel Marcus_, Jul 13 2015
%e 15127 is the 20th Lucas number (A000032(20)) with digit sum 16, so a(20)=16.
%t Table[Total[IntegerDigits[LucasL[n]]], {n, 0, 100}] (* _T. D. Noe_, Oct 28 2013 *)
%o (Magma) [&+Intseq(Lucas(n)): n in [0..80]]; // _Vincenzo Librandi_, Jul 13 2015
%Y Cf. A000032, A004090, A007953.
%K nonn,base
%O 0,1
%A _Parthasarathy Nambi_, Jun 08 2008
|
