%I #4 Aug 27 2019 08:57:15
%S 109,1,34,2,6,11,5,26,35,17,13,33,75,21,55,24,68,45,79,148,202,236,
%T 261,230,193,330,481,524,771,227,618,1042,327,1051,1128,687,966,632,
%U 1624,2646,3739,2392,841,752,2677,2785,3819,3200,3598,1706,6974,9479,9907
%N First occurrence of n in A093723, or -1 if n does not occur.
%t a(4) = 109 since A092613(110) - A092613(109) = 3191+2963+2927+3119 - 3181-2953-2917-3109 = 12200 - 12160 = 40.
%t 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}]]
%Y Cf. A092614, A093723.
%K nonn
%O 4,1
%A _Robert G. Wilson v_, Apr 13 2004
|