A109512 Integers which are not the sum of n and A001462(n).

0, 1, 3, 6, 9, 13, 17, 22, 27, 32, 38, 44, 50, 57, 64, 71, 78, 86, 94, 102, 110, 119, 128, 137, 146, 156, 166, 176, 186, 196, 207, 218, 229, 240, 251, 263, 275, 287, 299, 311, 324, 337, 350, 363, 376, 389, 403, 417, 431, 445, 459, 473, 488, 503, 518, 533, 548

Offset: 0

Author

Eric Angelini, Alexandre Wajnberg and Robert G. Wilson v, Aug 29 2005

Keywords

• base
• easy
• nonn

Comments

Terms computed by Robert G. Wilson v.

Examples

			Let N=succession of the natural numbers, G=Golomb self-describing sequence, S=sum of n and according G(n):
N=1.2.3.4.5..6..7..8..9.10.11.12.13.14.15.16.17.18.19.20.21.22
G=1,2,2,3,3,.4,.4,.4,.5,.5,.5,.6,.6,.6,.6,.7,.7,.7,.7,.8,.8,.8
S=2.4.5.7.8.10.11.12.14.15.16.18.19.20.21.23.24.25.26.28.29.30
Integers not in S (0,1,3,6,9,13,17,22...) form the sequence.
		

Links

• Robert Price, Table of n, a(n) for n = 0..9999

Programs

Mathematica

a[1] = 1; a[n_] := a[n] = 1 + a[n - a[a[n - 1]]]; Do[ a[n], {n, 10^5}]; h = Complement[ Range[100000 + a[10^5]], Table[n + a[n], {n, 10000}]] t = Table[n + Sum[PrimePi[k], {k, 1, n}], {n, 0, 1200}]