OFFSET
1,1
EXAMPLE
The sum of all 1-digit Lucas numbers is 17, so a(1) = 17.
The sum of all 2-digit Lucas numbers is 181, so a(2) = 181.
MATHEMATICA
Total/@Table[Select[Table[LucasL[n], {n, 0, 95}], IntegerLength[#]==i&], {i, 20}] (* Harvey P. Dale, Mar 31 2011 *)
nn = 20; t = Table[0, {nn}]; k = 0; While[luc = LucasL[k]; d = IntegerLength[luc]; d <= nn, t[[d]] = t[[d]] + luc; k++]; t (* T. D. Noe, Mar 31 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, May 27 2007
EXTENSIONS
More terms from Harvey P. Dale, Mar 31 2011.
STATUS
approved