|
|
A180316
|
|
Concatenation of n and A008954(n).
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
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)
|
|
MATHEMATICA
|
Module[{nn=60}, 10#[[1]]+Mod[#[[2]], 10]&/@Thread[{Range[0, nn], Accumulate[ Range[ 0, nn]]}]] (* Harvey P. Dale, Oct 21 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
keyword:base added and sequence extended - R. J. Mathar, Sep 23 2010
|
|
STATUS
|
approved
|
|
|
|