| 6, 10, 14, 22, 26, 34, 38, 46, 58, 62, 74, 82, 86, 94, 99, 106, 118, 122, 134, 142, 146, 158, 166, 168, 178, 187, 194, 202, 206, 214, 218, 226, 254, 262, 274, 278, 298, 302, 314, 326, 334, 346, 358, 362, 382, 386, 394, 398, 422, 446, 454, 458, 466, 478, 482
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[ If[ !PrimeQ[ n ], If[ Mod[ DivisorSigma[ 1, n ], n-EulerPhi[ n ] ] == 0, Print[ n ] ], {n, 1, 500} ]
|
|
CROSSREFS
|
Sequence in context: A015812 A080784 A072978 this_sequence A119431 A023387 A119623
Adjacent sequences: A055160 A055161 A055162 this_sequence A055164 A055165 A055166
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 30 2000
|
|
