login
Concatenation of n and A008954(n).
1

%I #11 Jan 09 2020 14:07:50

%S 0,11,23,36,40,55,61,78,86,95,105,116,128,131,145,150,166,173,181,190,

%T 200,211,223,236,240,255,261,278,286,295,305,316,328,331,345,350,366,

%U 373,381,390,400,411,423,436,440,455,461,478,486,495,505,516,528,531,545,550,566

%N Concatenation of n and A008954(n).

%H Harvey P. Dale, <a href="/A180316/b180316.txt">Table of n, a(n) for n = 0..1000</a>

%F From _Chai Wah Wu_, Jan 09 2020: (Start)

%F 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.

%F 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)

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

%Y Cf. A008954

%K easy,base,nonn

%O 0,2

%A _Odimar Fabeny_, Aug 27 2010

%E keyword:base added and sequence extended - _R. J. Mathar_, Sep 23 2010