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

Comments

Terms computed by Robert G. Wilson v.

Links

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

Example

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.

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}]

Crossrefs

Sequence in context: A205726 A002815 A342711 * A025205 A024190 A004116

Adjacent sequences: A109509 A109510 A109511 * A109513 A109514 A109515

Keyword

base,easy,nonn

Author

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

Status

approved