|
|
A156099
|
|
Smallest number m such that prime(n) is a factor of both m and sigma(m).
|
|
1
|
|
|
6, 6, 40, 28, 473, 117, 1139, 703, 3151, 5017, 496, 2701, 6683, 11051, 13207, 11183, 20827, 10309, 26867, 20093, 18688, 12403, 27473, 91136, 18721, 101909, 63551, 68587, 71177, 76501, 8128, 68513, 74939, 38503, 221861, 273461, 49141, 159251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|