OFFSET
1,1
COMMENTS
a(17) <= 2487619. - Daniel Suteu, Jan 05 2025
EXAMPLE
a(1) = 3 because omega(3^1 - 1) = omega(2) = 1,
a(2) = 5 because omega(5^2 - 1) = omega(24) = 2,
a(3) = 7 because omega(7^3 - 1) = omega(342) = 3.
MATHEMATICA
a[n_] := Module[{p = 2}, While[PrimeNu[p^n - 1] != n, p = NextPrime[p]]; p]; Array[a, 12] (* Amiram Eldar, Dec 25 2024 *)
PROG
(PARI) a(n) = my(p=2); while (omega(p^n - 1) != n, p=nextprime(p+1)); p; \\ Michel Marcus, Dec 24 2024
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Dec 23 2024
STATUS
approved