A097601 Differences between A045918 and A047842.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 99, 0, 0, 0, 0, 0, 0, 0, 0, 0, 198, 99, 0, 0, 0, 0, 0, 0, 0, 0, 297, 198, 99, 0, 0, 0, 0, 0, 0, 0, 396, 297, 198, 99, 0, 0, 0, 0, 0, 0, 495, 396, 297, 198, 99, 0, 0, 0, 0, 0, 594, 495, 396, 297, 198, 99, 0, 0, 0, 0, 693, 594, 495, 396, 297, 198, 99, 0, 0

Offset: 0

Author

Odimar Fabeny, Aug 29 2004

Keywords

• easy
• sign
• base

Links

• G. C. Greubel, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A045918, A047842.

Programs

Mathematica

LookAndSayA[n_]:= FromDigits@Flatten@IntegerDigits@Flatten[Through[ {Length, First}[#]] & /@ Split@IntegerDigits@n]; dc[n_]:= FromDigits@ Flatten@Select[Table[{DigitCount[n, 10, k], k}, {k, 0, 9}], #[[1]] > 0 &]; Table[LookAndSayA[n] - dc[n], {n, 0, 100}]

Extensions

Terms a(31) onward added by G. C. Greubel, Jan 14 2019