|
Search: id:A037170
|
|
| |
|
| 1, 2, 4, 8, 27, 35, 215, 235, 2611, 65113, 174647, 1301317, 1302509, 5021647, 10885081, 36319939, 70112131, 70113559, 325575773
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
primeCount = 0; For[ i = 1, i == i, i++, If[ PrimeQ[ i ], primeCount++ ]; If[ i - EulerPhi[ i ] == primeCount, Print[ i ] ] ]
|
|
CROSSREFS
|
Sequence in context: A066535 A000643 A112285 this_sequence A006399 A056800 A034919
Adjacent sequences: A037167 A037168 A037169 this_sequence A037171 A037172 A037173
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Naohiro Nomoto (6284968128(AT)geocities.co.jp)
|
|
EXTENSIONS
|
More terms from Alex Healy (ahealy(AT)fas.harvard.edu), Mar 17 2001
|
|
|
Search completed in 0.002 seconds
|