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

Links

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

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]

Crossrefs

Cf. A132271.

Sequence in context: A045532 A255729 A341740 * A207539 A083683 A294139

Adjacent sequences: A190423 A190424 A190425 * A190427 A190428 A190429

Keyword

easy,nonn

Author

Robert G. Wilson v, May 10 2011

Status

approved