OFFSET
0,2
COMMENTS
Compare with A007416, where terms of this sequence are present.
EXAMPLE
MATHEMATICA
Block[{nn = 22, s}, s = TakeList[Array[DivisorSigma[0, # + 1] &, 2^nn - 1], 2^Range[0, nn - 1]]; {1}~Join~Map[2^(#1 - 1) + #2 & @@ FirstPosition[s, #] &, Map[Max, s]]] (* Michael De Vlieger, Nov 04 2020 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
EXTENSIONS
a(22)-a(31) from Sean A. Irvine, Nov 04 2020
STATUS
approved