|
%I
%S 1215,6560,8991,9375,14336,16767,22112,24543,29888,32319,37664,40095,
%T 45440,47871,53216,55647,60992,63423,68768,71199,76544,78975,84320,
%U 86751,90624,92096,94527,99872,102303,107648,109375,110079,115424
%N Lesser of two consecutive numbers each divisible by a fifth power.
%t Select[ Range[2, 250000], Max[ Transpose[ FactorInteger[ # ]] [[2]]] > 4 && Max[ Transpose[ FactorInteger[ # + 1]] [[2]]] > 4 &]
%Y Cf. A068780, A068781, A068140, A068782, A068784, A068785.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Mar 04 2002
|
