OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
s[n_] := If[n == 1, 0, Min @@ Last /@ FactorInteger[n]]; s /@ Select[Range[3000], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 1 &]
(* or *)
f[n_] := Module[{e = Min[FactorInteger[n][[;; , 2]]]}, If[n == 1, 0, If[e > 1, e, Nothing]]]; Array[f, 3000]
PROG
(PARI) lista(kmax) = {my(e); for(k = 1, kmax, if(k == 1, print1(0, ", "), e = vecmin(factor(k)[, 2]); if(e > 1, print1(e, ", ")))); }
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Feb 15 2024
STATUS
approved