OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n=1..5000
EXAMPLE
a(20) = 20093. prime(20) = 71. 20093/71 = 283. sigma(20093)/71 = 288.
MATHEMATICA
snm[p_]:=Module[{m=1}, While[!Divisible[m, p]||!Divisible[ DivisorSigma[ 1, m], p], m++]; m]; snm/@Prime[Range[40]] (* Harvey P. Dale, Dec 17 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Donovan Johnson, Feb 04 2009
STATUS
approved