A076820 Second-largest distinct prime dividing n (or 1 if n is a power of a prime).
1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 3, 1, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 3, 2, 5, 2, 1, 2, 3, 2, 1, 3, 1, 2, 3, 2, 1, 2, 1, 2, 3, 2, 1, 2, 5, 2, 3, 2, 1, 3, 1, 2, 3, 1, 5, 3, 1, 2, 3, 5, 1, 2, 1, 2, 3, 2, 7, 3, 1, 2, 1, 2, 1, 3, 5, 2, 3, 2, 1, 3, 7, 2, 3, 2, 5, 2, 1, 2, 3, 2, 1, 3, 1, 2, 5
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..65537
Programs
-
PARI
A076820(n) = { my(o=omega(n)); if(1>=o,1,factor(n)[o-1,1]); }; \\ Antti Karttunen, Sep 25 2018
Comments