|
|
A114081
|
|
sigma(n) plus the n-th prime gives a cube.
|
|
2
|
|
|
178, 185, 268, 548, 581, 2142, 9474, 17027, 17108, 66367, 71212, 155131, 230521, 296001, 318558, 335880, 555896, 620041, 1141190, 1158839, 1559606, 1650646, 2021877, 3274046, 3655189, 3668878, 4023383
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
sigma(155131)+p(155131)=2248091=131^3.
|
|
MATHEMATICA
|
Select[Range[4024000], IntegerQ[Surd[DivisorSigma[1, #]+Prime[#], 3]]&] (* Harvey P. Dale, Nov 01 2021 *)
|
|
PROG
|
(PARI) isok(n) = ispower(sigma(n) + prime(n), 3); \\ Michel Marcus, Jan 11 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|