%I
%S 1,13,16,20,25,31,38,46,55,65,76,197,511,526,687,758,839,1759,1761,
%T 1883,1906,1930,2182,2244,2316,2398,3328,3641,3874,3908,3943,3979,
%U 4016,4399,5339,5380,5422,5465,5509,5554,6018,6092,6176,7126,7177,7229,7282,7336
%N Shadow of N (natural numbers), also of Champernowne's shadow.
%C First differences are N's shadow. Never twice the same integer in sequence or first differences (except the starting "1").
%H Petros Hadjicostas, <a href="/A110623/b110623.txt">Table of n, a(n) for n = 1..130</a>
%e The first line hereunder is the sequence, the second line gives the first differences:
%e 1..13.16.20.25.31.38.46.55..65..76...197..228..269..311 ...
%e .12..3..4..5..6..7..8..9..10..11..121...31...41...51... < N's shadow (which, when concatenated, gives A033307)
%t a[1] = 1; a[n_] := a[n] = Block[{c = Flatten[ IntegerDigits /@ Range[150]], k = 1, t = Table[a[i], {i, n  1}]}, d = Drop[t, 1]  Drop[t, 1]; b = Drop[c, Length[ Flatten[ IntegerDigits /@ d]]]; e = Union[ Join[t, d]]; While[f = FromDigits[ Take[b, k]]; Position[e, f] != {}  b[[k + 1]] == 0, k++ ]; f + a[n  1]]; Table[ a[n], {n, 48}] (* _Robert G. Wilson v_, Oct 10 2005 *)
%Y Cf. A000027, A007376, A033307.
%K base,easy,nonn
%O 1,2
%A _Alexandre Wajnberg_ and _Eric Angelini_, Sep 14 2005
%E Corrected and extended by _Robert G. Wilson v_, Oct 10 2005
