close
login
A109887
Numbers k such that 3^k + phi(k) is prime.
1
3, 4, 10, 20, 44, 60, 583, 677, 947, 1182, 12048, 16018, 74316
OFFSET
1,1
COMMENTS
All terms correspond to certified primes (Primo 2.2.0 beta). No more terms through 10000.
a(14) > 10^5. - Donovan Johnson, Feb 06 2010
MATHEMATICA
Do[If[PrimeQ[3^n + EulerPhi[n]], Print[n]], {n, 1, 10000}]
CROSSREFS
Cf. A000010 (phi), A109889.
Sequence in context: A326832 A357812 A321197 * A200981 A266729 A103038
KEYWORD
nonn,hard,more
AUTHOR
Ryan Propper, Aug 31 2005
EXTENSIONS
a(11)-a(13) from Donovan Johnson, Feb 06 2010
STATUS
approved