login
Indices of records in A362451.
3

%I #15 Sep 26 2023 06:08:45

%S 1,2,12,120,840,17136,22680,45360,60480,70560,433440,982800

%N Indices of records in A362451.

%H <a href="/index/Ge#Gilbreath">Index entries for sequences related to Gilbreath conjecture and transform</a>

%t A362457[upto_]:=Module[{d=DivisorSigma[1,Range[upto]],r=1,f},Join[{1},Table[If[(f=First[d=Abs[Differences[d]]])>r,r=f;n,Nothing],{n,2,upto}]]];A362457[10000] (* _Paolo Xausa_, May 07 2023 *)

%Y Cf. A362451, A362456.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, May 07 2023

%E a(9)-a(12) from _Paolo Xausa_, May 07 2023