OFFSET
0,2
LINKS
Hartmut F. W. Hoft, Computational Characterization of a(n) = A038547(2^n)
FORMULA
a(n) = A038547(2^n).
EXAMPLE
MATHEMATICA
next[{num_, fList_, lastP_, {p_, k_}}] := Module[{nP, f1List, p1, k1}, nP=NextPrime[First[Last[fList]]]; If[nP<p^k, {num nP, Append[fList, {nP, 1}], nP, {p, k}}, f1List=Replace[fList, {p, k-1}->{p, 2k-1}, {1}]; {{p1, k1}}=FactorInteger[Min[Map[#[[1]]^(#[[2]]+1)&, f1List]]]; {num p^k, f1List, lastP, {p1, k1}}]]
a360438[n_] := Join[{1}, Map[First, NestList[next, {3, {{3, 1}}, 3, {3, 2}}, n-1]]]/; n>=1
Join[{1}, a360438[20]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Feb 07 2023
STATUS
approved