|
| |
|
|
A063943
|
|
phi(n) = sigma(n)-sigma(n+1).
|
|
1
| |
|
|
170, 518, 15416, 16472, 21584, 52744, 140864, 187736, 196318, 318626, 354118, 639286, 828814, 942326, 1333172, 1604018, 3301024, 5240458, 6490678, 7552264, 8040166, 8321326, 9790430, 12237950, 12461834, 14818438, 19012455, 20392318
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,38
|
|
|
PROG
| (PARI) for(n=1, 30000000, if(eulerphi(n)==sigma(n)-sigma(n+1), print1(n, ", ")))
(PARI) { n=-1; t=0; for (m=1, 10^9, s=t; t=sigma(m + 1); if (eulerphi(m)==s - t, write("b063943.txt", n++, " ", m); if (n==38, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 03 2009]
|
|
|
CROSSREFS
| Sequence in context: A043344 A045153 A045041 * A045089 A114078 A031704
Adjacent sequences: A063940 A063941 A063942 * A063944 A063945 A063946
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Sep 01 2001
|
|
|
EXTENSIONS
| More terms from Rick L. Shepherd (rshepherd2(AT)hotmail.com), Apr 06 2002
|
| |
|
|
