OFFSET
2,1
COMMENTS
All terms are squarefree. - Jon E. Schoenfield, Jul 02 2023
FORMULA
a(p) = p for prime p. - David A. Corneth, Jul 02 2023
EXAMPLE
a(4) = 14, because 14 = 2 * 7, floor((2 + 7) / 2) = 4, and no lesser number satisfies this.
MATHEMATICA
seq[len_, kmax_] := Module[{s = Table[0, {len}], c = 0, k = 2, i}, While[c < len && k < kmax, i = Floor[Mean[FactorInteger[k][[;; , 1]]]] - 1; If[i <= len && s[[i]] == 0, c++; s[[i]] = k]; k++]; s]; seq[60, 1000] (* Amiram Eldar, Jul 02 2023 *)
PROG
(PARI) f(n) = my(p = factor(n)[, 1]); vecsum(p)\#p; \\ A363895
a(n) = my(k=2); while (f(k) != n, k++); k; \\ Michel Marcus, Jul 02 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Jean-Marc Rebert, Jul 02 2023
STATUS
approved