%I #17 Feb 09 2017 12:00:43
%S 2,3,7,7,37,37,113,113,241,241,241,241,241,241,241,241,241,241,2113,
%T 2113,2113,2113,2113,2113,3121,3121,3121,3121
%N Smallest prime p such that p^i - 1 is a totient (A002202) for all i = 1 to n, or 0 if no such p exists.
%C p - 1 = phi(p) is a totient for all primes p.
%C If A281909(n) is prime, then a(n) = A281909(n).
%e a(3) = 7 because 7^2 - 1 = 48, 7^3 - 1 = 342 are both totient numbers (A002202) and 7 is the least prime number with this property.
%o (PARI) isok(p, n)=for (i=1, n, if (! istotient(p^i-1), return(0));); 1;
%o a(n) = {my(p=2); while (! isok(p, n), p = nextprime(p+1)); p;} \\ _Michel Marcus_, Feb 04 2017
%Y Cf. A000010, A002202, A181062, A281909.
%K nonn,more
%O 1,1
%A _Altug Alkan_, Feb 03 2017
%E a(19) from _Michel Marcus_, Feb 04 2017
%E a(20)-a(28) from _Ray Chandler_, Feb 08 2017
|