|
Search: id:A065523
|
|
| |
|
| 3, 7, 21, 31, 81, 93, 127, 217, 381, 400, 651, 889, 2667, 3937, 8191, 11811, 24573, 27559, 57337, 82677, 131071, 172011, 253921, 393213, 524287, 761763, 917497, 1040257, 1572861, 1777447, 2752491, 3120771, 3670009, 4063201, 5332341
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
s[n_] := DivisorSigma[1, n ]; Select[ Range[2, 10^6], !PrimeQ[ s[ # ]] && Mod[ s[ # ], s[ # ] - EulerPhi[ s[ # ]]] == 0 & ]
|
|
CROSSREFS
|
A proper subset of A065496.
Adjacent sequences: A065520 A065521 A065522 this_sequence A065524 A065525 A065526
Sequence in context: A018548 A003585 A108102 this_sequence A046528 A018572 A018641
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 27 2001
|
|
EXTENSIONS
|
a(31)-a(35) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Sep 05 2008
|
|
|
Search completed in 0.002 seconds
|
