A190426 First differences of A132271 not in A132271.

12, 23, 45, 56, 67, 89, 100, 244, 266, 288, 310, 332, 376, 398, 420, 696, 762, 795, 828, 861, 894, 927, 1222, 1368, 1412, 1456, 1500, 1544, 1588, 1632, 1676, 1720, 2260, 2315, 2370, 2425, 2480, 2535, 2590, 2645, 2700, 3372, 3438, 3504, 3570, 3636, 3702, 3768, 3834, 3900

Offset: 1

Author

Robert G. Wilson v, May 10 2011

Keywords

• easy
• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A132271.

Programs

Mathematica

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]