login
A015830
Numbers k such that phi(k + 10) | sigma(k).
1
11, 14, 17, 35, 42, 46, 56, 60, 62, 66, 94, 114, 138, 142, 158, 224, 258, 282, 284, 334, 354, 378, 402, 408, 420, 426, 440, 473, 478, 480, 498, 526, 618, 622, 638, 642, 728, 748, 762, 766, 770, 786, 826, 834, 840, 862, 906, 920, 935, 952, 984, 1001, 1006
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[3000], Divisible[DivisorSigma[1, #], EulerPhi[10 + #]] &] (* David Nacin, Mar 01 2012 *)
PROG
(PARI) is(n)=sigma(n)%(eulerphi(n)+10)==0 \\ Charles R Greathouse IV, Sep 25 2012
CROSSREFS
Sequence in context: A093669 A084805 A159020 * A242098 A163672 A216580
KEYWORD
nonn
STATUS
approved