|
| |
|
|
A063868
|
|
Solutions to Phi[x + omega[x]] = Phi[x] + d[x], where Phi[] = A000010(), d[] = A000005() and omega[] = A001221().
|
|
1
| |
|
|
33, 72, 1293, 4187, 7169, 8466, 23086, 24881, 25019, 59987, 77057, 143369, 150419, 176715, 205727, 215069, 220817, 359499, 418307, 1239869, 1887239, 2123583, 2229011, 2262107, 2303837, 2458397, 2502977, 3495954, 3693419, 4279859
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,60
|
|
|
PROG
| (PARI) for(n=1, 10^7, if(eulerphi(n+omega(n))==eulerphi(n)+numdiv(n), print(n)))
(PARI) { n=0; for (m=1, 10^9, if(eulerphi(m + omega(m)) == eulerphi(m) + numdiv(m), write("b063868.txt", n++, " ", m); if (n==60, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 01 2009]
|
|
|
CROSSREFS
| Cf. A000010, A000005, A001221.
Sequence in context: A044516 A015722 A103046 * A184417 A049012 A137187
Adjacent sequences: A063865 A063866 A063867 * A063869 A063870 A063871
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Aug 26 2001
|
|
|
EXTENSIONS
| 1239869 from Thomas Baruchel (baruchel(AT)users.sourceforge.net), Oct 19 2003
a(21)-a(30) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Aug 03 2009
|
| |
|
|
