|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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: A295191 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
|
|
|
|