A093724 First occurrence of n in A093723, or -1 if n does not occur.

109, 1, 34, 2, 6, 11, 5, 26, 35, 17, 13, 33, 75, 21, 55, 24, 68, 45, 79, 148, 202, 236, 261, 230, 193, 330, 481, 524, 771, 227, 618, 1042, 327, 1051, 1128, 687, 966, 632, 1624, 2646, 3739, 2392, 841, 752, 2677, 2785, 3819, 3200, 3598, 1706, 6974, 9479, 9907

Offset

4,1

Links

Table of n, a(n) for n=4..56.

Mathematica

a(4) = 109 since A092613(110) - A092613(109) = 3191+2963+2927+3119 - 3181-2953-2917-3109 = 12200 - 12160 = 40.
t = Table[ A092613[n]/10, {n, 10000}]; d = Drop[t, 1] - Drop[t, -1]; f[n_] := Position[d, n, 1, 1]; Flatten[ Table[ f[n], {n, 4, 59}]]

Crossrefs

Cf. A092614, A093723.

Sequence in context: A030248 A033535 A077728 * A340348 A340347 A247440

Adjacent sequences: A093721 A093722 A093723 * A093725 A093726 A093727

Keyword

nonn

Author

Robert G. Wilson v, Apr 13 2004

Status

approved