|
|
A247604
|
|
Least integer m > 0 with pi(m*n) = sigma(m+n), where pi(.) and sigma(.) are given by A000720 and A000203.
|
|
8
|
|
|
18, 11, 360, 251, 168, 36, 6, 285, 1185, 792, 29, 11, 245078, 5, 1869, 46074, 573, 42863, 11, 5, 8129, 60806, 1443, 452, 15, 39298437, 386891, 1041920, 1290489, 17630, 35569, 10, 8174777, 3152500, 4291325, 57880072, 55991485, 127358, 93462807, 93314912
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
5,1
|
|
COMMENTS
|
Conjecture: a(n) exists for every n = 5,6,...
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = 18 since pi(5*18) = 24 = sigma(5+18).
|
|
MATHEMATICA
|
Do[m=1; Label[aa]; If[PrimePi[n*m]==DivisorSigma[1, m+n], Print[n, " ", m]; Goto[bb]]; m=m+1; Goto[aa];
Label[bb]; Continue, {n, 5, 40}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|