A252492 The largest prime factor of n*(n+1) equals 17. (Related to the abc conjecture.)
16, 17, 33, 34, 50, 51, 84, 119, 135, 153, 169, 220, 255, 272, 288, 374, 441, 560, 594, 714, 832, 935, 1088, 1155, 1224, 1274, 1700, 2057, 2430, 2499, 2600, 4913, 5831, 12375, 14399, 28560, 31212, 37179, 194480, 336140
Offset: 1
Programs
-
Mathematica
Select[Range[345678], FactorInteger[ # (# + 1)][[ -1,1]] == 17 &]
-
PARI
for(n=1,9e6,vecmax(factor(n++)[,1])<18 && vecmax(factor(n*n--)[,1])==17 && print1(n",")) \\ Skips 2 if n+1 is not 17-smooth: Twice as fast as the naïve version.
Comments