A180316 Concatenation of n and A008954(n).

0, 11, 23, 36, 40, 55, 61, 78, 86, 95, 105, 116, 128, 131, 145, 150, 166, 173, 181, 190, 200, 211, 223, 236, 240, 255, 261, 278, 286, 295, 305, 316, 328, 331, 345, 350, 366, 373, 381, 390, 400, 411, 423, 436, 440, 455, 461, 478, 486, 495, 505, 516, 528, 531, 545, 550, 566

Offset: 0

Author

Odimar Fabeny, Aug 27 2010

Keywords

• easy
• base
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A008954

Programs

Mathematica

Module[{nn=60},10#[[1]]+Mod[#[[2]],10]&/@Thread[{Range[0,nn], Accumulate[ Range[ 0,nn]]}]] (* Harvey P. Dale, Oct 21 2016 *)

Formula

From Chai Wah Wu, Jan 09 2020: (Start)

a(n) = a(n-1) + a(n-5) - a(n-6) - a(n-10) + a(n-11) + a(n-15) - a(n-16) for n > 15.

G.f.: x*(10*x^14 + 9*x^13 + 8*x^12 + 7*x^11 + 16*x^10 - 5*x^9 + 5*x^8 - 5*x^7 + 5*x^6 - 5*x^5 + 15*x^4 + 4*x^3 + 13*x^2 + 12*x + 11)/(x^16 - x^15 - x^11 + x^10 + x^6 - x^5 - x + 1). (End)

Extensions

keyword:base added and sequence extended - R. J. Mathar, Sep 23 2010