|
Search: id:A079477
|
|
|
| A079477 |
|
First prime after phi(p_n^2). |
|
+0
1
|
|
| 3, 7, 23, 43, 113, 157, 277, 347, 509, 821, 937, 1361, 1657, 1811, 2179, 2767, 3433, 3671, 4423, 4973, 5261, 6163, 6823, 7841, 9319, 10103, 10513, 11351, 11777, 12659, 16007, 17033, 18637, 19183, 22063, 22651, 24499, 26407, 27733, 29759, 31873
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The sequence always increases.
|
|
EXAMPLE
|
p_3=5, phi(5^2)=phi(25)=20, therefore a(3)=23
|
|
MATHEMATICA
|
Prime[1+PrimePi[EulerPhi[Prime[Range[41]]^2]]] - T. D. Noe (noe(AT)sspectra.com), Nov 15 2006
|
|
PROGRAM
|
(PARI) forprime (p=2, 200, print1(nextprime(eulerphi(p^2))", "))
|
|
CROSSREFS
|
Sequence in context: A084739 A133434 A122870 this_sequence A014426 A054270 A058000
Adjacent sequences: A079474 A079475 A079476 this_sequence A079478 A079479 A079480
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jon Perry (perry(AT)globalnet.co.uk), Jan 15 2003
|
|
EXTENSIONS
|
Corrected by T. D. Noe (noe(AT)sspectra.com), Nov 15 2006
|
|
|
Search completed in 0.002 seconds
|
