A116964 Sum of all n-digit Lucas numbers.

17, 181, 2008, 22269, 143285, 1692737, 18772741, 208192888, 2308894509, 14856075365, 175506357617, 1946395332181, 21585855011608, 138889450176440, 1640808956134074, 18196850168753057, 201806160812417701, 2238064619105347768, 14400335971854080600, 170122354174067662074

Offset

1,1

Links

Table of n, a(n) for n=1..20.

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

Cf. A000032, A127390, A128823.

Sequence in context: A142214 A066521 A055904 * A167578 A181401 A243419

Adjacent sequences: A116961 A116962 A116963 * A116965 A116966 A116967

Keyword

nonn,base

Author

Parthasarathy Nambi, May 27 2007

Extensions

More terms from Harvey P. Dale, Mar 31 2011.

Status

approved