OFFSET
1,2
COMMENTS
All numbers a(n), n >= 12, are larger than 5 * 10^6, and 5 * 10^6 < a(9) <= 11^4 * 13^4, a(10) = 991875 and a(11) = 2247225.
EXAMPLE
a(3) = 15 = 3 * 5 with SRS(15) = { 8, 8, 8 } and width pattern 1 0 1 2 1 0 1.
a(5) = 1225 = 5^2 * 7^2 with SRS(1225) = { 613, 216, 109, 216, 613 } and width pattern 1 0 1 2 1 0 1 2 3 2 1 0 1 2 1 0 1.
MATHEMATICA
(* Functions partsSRS[ ] and widthPattern[ ] are defined in A377654 *)
a392097[b_, c_] := Module[{list=Table[0, c], k, len, wP}, For[k=1, k<=b, k++, len=Length[partsSRS[k]]; wP=Select[SplitBy[widthPattern[k], #==0&], #[[1]]==1&];
If[AllTrue[Range[(len+Boole[OddQ[len]])/2], Max[wP[[#]]]==#&&Length[wP[[#]]]==2#-1&]&&list[[len]]==0, list[[len]]=k]];
list]
a392097[43125, 8]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hartmut F. W. Hoft, Dec 30 2025
STATUS
approved
