A020491 Numbers k such that sigma_0(k) divides phi(k).
1, 3, 5, 7, 8, 9, 10, 11, 13, 15, 17, 18, 19, 21, 23, 24, 26, 28, 29, 30, 31, 33, 34, 35, 37, 39, 40, 41, 43, 45, 47, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 63, 65, 67, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 82, 83, 84, 85, 87, 88, 89, 90, 91, 93, 95, 97, 98, 99, 101, 102, 103, 104
Offset: 1
Keywords
Links
- Enrique Pérez Herrero, Table of n, a(n) for n = 1..5000
- Psychedelic Geometry Blogspot, Fermat and Mersenne Numbers Conjecture-(2)
Crossrefs
Programs
-
Mathematica
Select[ Range[ 105 ], IntegerQ[ EulerPhi[ # ]/DivisorSigma[ 0, # ] ]& ]
-
PARI
isok(k) = !(eulerphi(k) % numdiv(k)); \\ Michel Marcus, Aug 10 2020
Comments