|
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, 21, 22, 25, 29, 36, 20, 38, 40, 24, 28, 34, 26, 33, 23, 38, 34, 54, 43, 52, 41, 30, 62, 47, 46, 39, 49, 43, 47, 45, 47, 47, 58, 33, 73, 43, 53, 33, 68, 56, 70, 45, 43
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
15127 is the 20th Lucas number (A000032(20)) with digit sum 16, so a(20)=16.
|
|
MATHEMATICA
|
Table[Total[IntegerDigits[LucasL[n]]], {n, 0, 100}] (* T. D. Noe, Oct 28 2013 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|