cp's OEIS Frontend

A174113 Smallest number k such that k, k+1, and k+2 are all divisible by an n-th power.

%I A174113 #18 Jul 10 2021 15:44:07
%S A174113 48,1375,33614,2590623,26890623,2372890624,70925781248,2889212890624,
%T A174113 61938212890624,4497636425781248,8555081787109375,2665760081787109375,
%U A174113 98325140081787109375,198816740081787109374,11776267480163574218750,872710687480163574218750,50783354512519836425781248
%N A174113 Smallest number k such that k, k+1, and k+2 are all divisible by an n-th power.
%C A174113 Least of the smallest trio of consecutive numbers divisible by an n-th power.
%D A174113 J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 1375, p. 135, Ellipses, Paris 2008.
%H A174113 Charles R Greathouse IV, <a href="/A174113/b174113.txt">Table of n, a(n) for n = 2..677</a> (next term has 1001 digits)
%F A174113 5^n < a(n) < 30^n. Can the lower bound be improved? - _Charles R Greathouse IV_, Jan 16 2012
%e A174113 a(3) = 1375 because
%e A174113   1375 =  11 * 5^3;
%e A174113   1376 = 172 * 2^3;
%e A174113   1377 =  51 * 3^3.
%p A174113 with(numtheory):for n from 2 to 6 do: i:=0:for k from 1 to 3000000 while(i=0) do:j:=0:
%p A174113 for a from 0 to 2 do: ii:=0:for m from 1 to 4  while(ii=0) do:p:=ithprime(m)^n:if irem(k+a,p)=0 then j:=j+1:ii:=1:else fi:od:od:if j=3 then i:=1:print(k):else fi:od:od:
%o A174113 (PARI) a(n)=my(ch,t,best=30^n);forprime(a=2, 29, forprime(b=2, 29, if(a==b,next); ch=chinese(Mod(0,a^n), Mod(-1,b^n)); if(lift(ch)>=best, next); forprime(c=2, 29, if(a==c || b==c, next); t=lift(chinese(ch, Mod(-2, c^n))); if(t<best,best=t)))); best \\ _Charles R Greathouse IV_, Jan 16 2012
%Y A174113 Cf. A068780, A068781, A068140, A068782, A068783, A068784, A045330, A059737, A063528, A051903, A051903.
%K A174113 nonn
%O A174113 2,1
%A A174113 _Michel Lagneau_, Mar 08 2010
%E A174113 a(8)-a(18) from _Charles R Greathouse IV_, Jan 16 2012