OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Array[Plus@@Last/@FactorInteger[Prime[ # ]-1]&, 6! ] (* Vladimir Joseph Stephan Orlovsky, Feb 28 2010 *)
PrimeOmega[Prime[Range[100]] - 1] (* Amiram Eldar, Apr 16 2024 *)
PROG
(PARI) a(n) = bigomega(prime(n)-1); \\ Amiram Eldar, Apr 16 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved