OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = omega(prime(n)+3). - Wesley Ivan Hurt, Mar 06 2022
MAPLE
f:= proc(p) nops(numtheory:-factorset(p+3)) end proc:
map(f, [seq(ithprime(i), i=1..100)]); # Robert Israel, Mar 06 2022
MATHEMATICA
a[n_] := PrimeNu[Prime[n]+3]; Array[a, 100] (* Amiram Eldar, Sep 29 2024 *)
PROG
(PARI) a(n) = omega(prime(n)+3); \\ Amiram Eldar, Sep 29 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved