A378309 a(n) = A010051(n) + A001222(n).
0, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 4, 2, 3, 2, 3, 2, 2, 2, 4, 2, 2, 3, 3, 2, 3, 2, 5, 2, 2, 2, 4, 2, 2, 2, 4, 2, 3, 2, 3, 3, 2, 2, 5, 2, 3, 2, 3, 2, 4, 2, 4, 2, 2, 2, 4, 2, 2, 3, 6, 2, 3, 2, 3, 2, 3, 2, 5, 2, 2, 3, 3, 2, 3, 2, 5, 4, 2, 2, 4, 2, 2, 2, 4, 2, 4
Offset: 1
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Array[Boole[PrimeQ[#]] + PrimeOmega[#] &, 100]
-
PARI
a(n) = isprime(n) + bigomega(n); \\ Michel Marcus, Nov 23 2024