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,11

Links

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

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}]

Crossrefs

Cf. A045918, A047842.

Sequence in context: A393852 A295184 A295186 * A113602 A097846 A246222

Adjacent sequences: A097598 A097599 A097600 * A097602 A097603 A097604

Keyword

easy,sign,base

Author

Odimar Fabeny, Aug 29 2004

Extensions

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

Status

approved