|
%I #10 Apr 06 2018 22:24:01
%S 12,23,45,56,67,89,100,244,266,288,310,332,376,398,420,696,762,795,
%T 828,861,894,927,1222,1368,1412,1456,1500,1544,1588,1632,1676,1720,
%U 2260,2315,2370,2425,2480,2535,2590,2645,2700,3372,3438,3504,3570,3636,3702,3768,3834,3900
%N First differences of A132271 not in A132271.
%H G. C. Greubel, <a href="/A190426/b190426.txt">Table of n, a(n) for n = 1..5000</a>
%t f[n_] := Block[{k = 0, p = 1}, While[a = Floor[n/10^k]; a > 0, p *= 1 + a; k++]; p]; t = Array[f, 591, 0]; Take[ Complement[ Union[ Rest@ t - Most@ t], t], 50]
%Y Cf. A132271.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, May 10 2011
|
