|
| |
|
|
A064805
|
|
phi(n) > phi(n+2).
|
|
1
| |
|
|
13, 16, 19, 22, 23, 25, 28, 31, 34, 37, 38, 40, 43, 46, 47, 49, 52, 53, 55, 58, 61, 64, 67, 68, 73, 76, 79, 82, 83, 85, 86, 88, 89, 91, 94, 97, 98, 100, 103, 106, 109, 112, 113, 115, 118, 121, 124, 127, 128, 130, 131, 133, 134, 136, 139, 142, 143, 145, 148, 151, 152
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
MATHEMATICA
| Select[ Range[150], EulerPhi[ # ] > EulerPhi[ #+2 ] & ]
|
|
|
PROG
| (PARI) { n=0; for (m=1, 10^9, f=eulerphi(m); if (eulerphi(m)>eulerphi(m + 2), write("b064805.txt", n++, " ", m); if (n==1000, return)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 26 2009]
|
|
|
CROSSREFS
| Cf. A001837.
Sequence in context: A172975 A058225 A153051 * A179202 A159975 A110623
Adjacent sequences: A064802 A064803 A064804 * A064806 A064807 A064808
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 21 2001
|
|
|
EXTENSIONS
| a(60) - a(61) from Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 26 2009
|
| |
|
|
