%I #13 Feb 09 2017 15:38:28
%S 2,3,7,3,25,5,49,3,17,5,13,3,41,7,5,3,13,5,25,3,25,5,53,3,9,9,25,3,29,
%T 3,81,3,9,15,5,3,13,5,13,3,33,5,49,3,5,9,25,3,9,3,9,3,81,5,5,3,25,7,
%U 49,3,13,9,13,3,13,3
%N Least k such that k^n - 1 is a totient number (A002202), or 0 if no such k exists.
%e a(5) = 25 because 25^5 - 1 = 5^10 - 1 = 9765624 is a totient number and 25 is the least number with this property.
%o (PARI) a(n) = my(k=1); while(!istotient(k^n-1), k++); k;
%Y Cf. A000010, A002202, A045542, A281909.
%K nonn,more
%O 1,1
%A _Altug Alkan_, Feb 03 2017
%E a(43)-a(52) from _Ray Chandler_, Feb 08 2017
%E a(53)-a(66) from _Ray Chandler_, Feb 09 2017
|