OFFSET
1,2
EXAMPLE
a(2) = 8 since 8 and 9 are in A048098, 7 and 10 are not, and 8 is the least number with this property.
MATHEMATICA
smQ[n_] := FactorInteger[n][[-1, 1]]^2 <= n; seq[len_, nmax_] := Module[{s = Table[0, {len}], v = {1}, n = 2, c = 0, m}, While[c <= len && n <= nmax, If[smQ[n], v = Join[v, {n}], m = Length[v]; v = {}; If[0 <= m <= len && s[[m]] == 0, c++; s[[m]] = n - m]]; n++]; s]; seq[6, 10^5]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jul 02 2022
STATUS
approved