A015830 Numbers k such that phi(k + 10) | sigma(k).

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

Vincenzo Librandi, Table of n, a(n) for n = 1..2000

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

Adjacent sequences: A015827 A015828 A015829 * A015831 A015832 A015833

Keyword

nonn

Author

Robert G. Wilson v

Status

approved