A076669 Primes of the form n^2*totient(n)+1 (or A053191(n) + 1).
2, 5, 19, 101, 73, 257, 487, 401, 577, 2029, 1801, 23549, 29401, 25601, 21169, 77659, 83233, 52489, 121001, 57601, 115321, 87121, 197137, 564899, 462401, 697049, 649801, 403369, 588061, 1020101, 887113, 893041, 922561, 696961, 1910413, 837937, 940801, 1411481
Offset: 1
Crossrefs
Cf. A053191.
Programs
-
PARI
lista(nn) = for (n=1, nn, if (isprime(p=n^2*eulerphi(n)+1), print1(p, ", "))); \\ Michel Marcus, Jul 23 2015
Extensions
Name corrected by Michel Marcus, Jul 23 2015
Comments