A068367 Numbers n such that phi(n)^2+sigma(n)^2 is prime.

1, 4, 8, 25, 50, 121, 225, 324, 400, 800, 1024, 1250, 1681, 1682, 2025, 2209, 4761, 5041, 5625, 6561, 6724, 7569, 11449, 17424, 18225, 18769, 21609, 26244, 34969, 36481, 38809, 42050, 59858, 62001, 72900, 90000, 102152, 108900

Offset

1,2

Links

Table of n, a(n) for n=1..38.

Mathematica

Select[Range[110000], PrimeQ[EulerPhi[#]^2+DivisorSigma[1, #]^2]&] (* Harvey P. Dale, Jul 21 2019 *)

Crossrefs

Sequence in context: A154586 A371190 A185615 * A292548 A000964 A297458

Adjacent sequences: A068364 A068365 A068366 * A068368 A068369 A068370

Keyword

easy,nonn

Author

Benoit Cloitre, Feb 28 2002

Status

approved