OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): select(k->modp(sigma(k+10), phi(k)+10)=0, [$1..2200]); # Muniru A Asiru, Dec 11 2018
MATHEMATICA
Select[Range[2100], Divisible[DivisorSigma[1, # + 10], EulerPhi[#] + 10] &] (* Amiram Eldar, Dec 10 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Title corrected by Sean A. Irvine, Dec 10 2018
STATUS
approved