|
%I #10 Feb 15 2019 10:04:34
%S 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,
%T 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,
%U 0,0,0,0,594,495,396,297,198,99,0,0,0,0,693,594,495,396,297,198,99,0,0
%N Differences between A045918 and A047842.
%H G. C. Greubel, <a href="/A097601/b097601.txt">Table of n, a(n) for n = 0..10000</a>
%t 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}]
%Y Cf. A045918, A047842.
%K easy,sign,base
%O 0,11
%A _Odimar Fabeny_, Aug 29 2004
%E Terms a(31) onward added by _G. C. Greubel_, Jan 14 2019
|
