login
A093724
First occurrence of n in A093723, or -1 if n does not occur.
1
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
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
Sequence in context: A030248 A033535 A077728 * A340348 A340347 A247440
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 13 2004
STATUS
approved