login
A067230
Numbers n such that phi(2n-1) = sigma(n).
2
1, 3, 5, 10, 11, 23, 33, 46, 65, 77, 123, 136, 221, 371, 383, 423, 483, 513, 545, 670, 753, 1643, 2033, 3838, 3885, 4533, 4798, 5177, 7463, 7739, 8201, 8985, 9010, 9393, 12256, 13144, 14104, 17110, 17147, 17663, 18695, 19817, 21119, 23038, 24695
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[25000], EulerPhi[2#-1]==DivisorSigma[1, #]&] (* Harvey P. Dale, Aug 22 2015 *)
PROG
(PARI) isok(n) = eulerphi(2*n-1) == sigma(n); \\ Michel Marcus, Nov 21 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 20 2002
STATUS
approved