A096182 Index of first occurrence of n in A095773.

1, 2, 4, 6, 8, 10, 13, 16, 19, 22, 26, 30, 34, 38, 42, 46, 51, 56, 61, 66, 71, 76, 82, 88, 94, 100, 106, 112, 118, 124, 130, 136, 142, 148, 155, 162, 169, 176, 183, 190, 197, 204, 211, 218, 225, 232, 240, 248, 256, 264, 272, 280, 288, 296, 304, 312, 320, 328, 336

Offset: 1

Author

Robert G. Wilson v, Jun 19 2004

Keywords

• nonn

Crossrefs

Cf. A095773.

Programs

Mathematica

a[1] = 1; a[n_] := a[n] = 1 + a[n - a[a[a[n - 1]]]]; f[n_] := Block[{k = 1}, While[a[k] != n, k++ ]; k]; Table[ f[n], {n, 60}]