login
Records in A362451.
3

%I #14 Sep 25 2023 19:28:02

%S 1,2,4,68,191,382,2772,5698,19448,30406,146903,887873

%N Records in A362451.

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

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

%Y Cf. A362451, A362457.

%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