login
A112763
Smallest prime factor of the n-th 5-smooth number.
4
1, 2, 3, 2, 5, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 5, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 2, 2, 2, 2, 5, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 2, 2, 3, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3
OFFSET
1,2
LINKS
FORMULA
a(n) = A020639(A051037(n));
a(n) <= A112764(n) <= 5.
a(A188427(n)) = 5 for n > 1. - David A. Corneth, Feb 07 2020
MATHEMATICA
FactorInteger[#][[1, 1]] & /@ Select[Range[3000], Last @ Map[First, FactorInteger[#]] <= 5 &] (* Amiram Eldar, Feb 07 2020 *)
PROG
(Magma) [1] cat [Min(PrimeDivisors(k)): k in [2..1500]| PrimeDivisors(k) subset [2, 3, 5]]; // Marius A. Burtea, Feb 07 2020
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 18 2005
STATUS
approved