|
%I #7 Feb 16 2021 04:30:29
%S 16767,29888,63423,76544,109375,110079,123200,156735,169856,203391,
%T 216512,250047,263168,296703,309824,343359,356480,390015,403136,
%U 436671,449792,483327,496448,529983,543104,576639,589760,623295,636416,669951
%N Lesser of two consecutive numbers each divisible by a sixth power.
%C The asymptotic density of this sequence is 1 - 2/zeta(6) + Product_{p prime} (1 - 2/p^6) = 0.000045351901298014669... - _Amiram Eldar_, Feb 16 2021
%H Amiram Eldar, <a href="/A068784/b068784.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[ Range[2, 10^6], Max[ Transpose[ FactorInteger[ # ]] [[2]]] > 5 && Max[ Transpose[ FactorInteger[ # + 1]] [[2]]] > 5 &]
%Y Cf. A068780, A068781, A068140, A068782, A068783, A068785.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Mar 04 2002
|
