login
A096182
Index of first occurrence of n in A095773.
0
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,2
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}]
CROSSREFS
Cf. A095773.
Sequence in context: A282168 A025224 A294023 * A186347 A302648 A269746
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2004
STATUS
approved