login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A085152
All prime factors of n and n+1 are <= 5. (Related to the abc conjecture.)
30
1, 2, 3, 4, 5, 8, 9, 15, 24, 80
OFFSET
1,2
COMMENTS
Equivalently: Numbers n such that n(n+1) is 5-smooth.
The ABC conjecture would imply that if the prime factors of A, B, C are prescribed in advance, then there is only a finite number of solutions to the equation A + B = C with gcd(A,B,C)=1 (indeed it would bound C to be no more than "roughly" the product of those primes). So in particular there ought to be only finitely many pairs of adjacent integers whose prime factors are limited to {2, 3, 5} (D. Rusin).
This sequence is complete by a theorem of Stormer. See A002071. - T. D. Noe, Mar 03 2008
This is the 3rd row of the table A138180. It has 10 = A002071(3) = A145604(1)+A145604(2)+A145604(3) terms and ends with A002072(3) = 80. It is the union of all terms in rows 1 through 3 of the table A145605. It is a subsequence of A252494 and A085153. - M. F. Hasler, Jan 16 2015
MATHEMATICA
Select[Range[10000], FactorInteger[ # (# + 1)][[ -1, 1]] <= 5 &] (* T. D. Noe, Mar 03 2008 *)
PROG
(PARI) for(n=1, 99, vecmax(factor(n++)[, 1])<6 && vecmax(factor(n--+(n<2))[, 1])<6 && print1(n", ")) \\ This skips 2 if n+1 is not 5-smooth: twice as fast as the naive version. - M. F. Hasler, Jan 16 2015
KEYWORD
nonn,fini,full
AUTHOR
Benoit Cloitre, Jun 21 2003
EXTENSIONS
Edited by Dean Hickerson, Jun 30 2003
STATUS
approved