A383391 Numbers k such that k^2, (k+1)^2 and (k+2)^2 are all abundant numbers.
2924, 3794, 5564, 8294, 8414, 10064, 13454, 19304, 22154, 22814, 35684, 39974, 40544, 40754, 41768, 46214, 49994, 52064, 56264, 60884, 63854, 65624, 68354, 68474, 69068, 70244, 78974, 84824, 88604, 92168, 93224, 95354, 100694, 102464, 106028, 107084, 111110, 111824
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
q[n_] := q[n] = DivisorSigma[-1, n^2] > 2; Select[Range[120000], AllTrue[# + {0, 1, 2}, q] &]
-
PARI
is1(k) = {my(f = factor(k)); prod(i = 1, #f~, f[i,2] *= 2); sigma(f, -1) > 2;} list(lim) = {my(q1 = is1(1), q2 = is1(2), q3); for(k = 3, lim, q3 = is1(k); if(q1 && q2 && q3, print1(k-2, ", ")); q1 = q2; q2 = q3);}
Comments