OFFSET
0,3
COMMENTS
This is to exponent 3 as A180278 is to exponent 2.
EXAMPLE
a(0) = 0 because 0^3 + 1 = 1 has no prime factors (being a unit).
a(1) = 1 because 1^3 + 1 = 2 has one prime factor (being a prime).
a(2) = 3 because 3^3 + 1 = 28 has two distinct prime factors {2, 7}.
a(3) = 5 because 5^3 + 1 = 126 has three distinct prime factors {2, 3, 7}.
a(4) = 17 because 17^3 + 1 = 4914 has four distinct prime factors {2, 3, 7, 13}.
a(5) = 59 because 59^3 + 1 = 205380 has five distinct prime factors {2, 3, 5, 7, 163}.
MATHEMATICA
k = 1; t = Table[0, {15}]; While[k < 30000001, a = PrimeNu[k^3 + 1]; If[ t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++]; t (* Robert G. Wilson v, Dec 12 2012 *)
PROG
(PARI) a(n)=for(k=0, oo, if(omega(k^3+1) == n, return(k))) \\ Andrew Howroyd, Sep 12 2023
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jonathan Vos Post, Nov 11 2012
EXTENSIONS
a(13)-a(14) from Robert G. Wilson v, Dec 12 2012
a(15)-a(16) from Giovanni Resta, May 10 2017
Name clarified and incorrect program removed by Pontus von Brömssen, Sep 12 2023
STATUS
approved