A252494 Numbers n such that all prime factors of n and n+1 are <= 11. (Related to the abc conjecture.)
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14, 15, 20, 21, 24, 27, 32, 35, 44, 48, 49, 54, 55, 63, 80, 98, 99, 120, 125, 175, 224, 242, 384, 440, 539, 2400, 3024, 4374, 9800
Offset: 1
Programs
-
Mathematica
Select[Range[10000], FactorInteger[ # (# + 1)][[ -1,1]] <= 11 &]
-
PARI
for(n=1,9e6,vecmax(factor(n++)[,1])<12 && vecmax(factor(n--+(n<2))[,1])<12 && print1(n",")) \\ Skips 2 if n+1 is not 11-smooth: Twice as fast as the naive version.
Comments