This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A068783 #13 Feb 16 2021 04:30:15
%S A068783 1215,6560,8991,9375,14336,16767,22112,24543,29888,32319,37664,40095,
%T A068783 45440,47871,53216,55647,60992,63423,68768,71199,76544,78975,84320,
%U A068783 86751,90624,92096,94527,99872,102303,107648,109375,110079,115424
%N A068783 Lesser of two consecutive numbers each divisible by a fifth power.
%C A068783 The asymptotic density of this sequence is 1 - 2/zeta(5) + Product_{p prime} (1 - 2/p^5) = 0.000284512101137896862... - _Amiram Eldar_, Feb 16 2021
%H A068783 Amiram Eldar, <a href="/A068783/b068783.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%t A068783 Select[ Range[2, 250000], Max[ Transpose[ FactorInteger[ # ]] [[2]]] > 4 && Max[ Transpose[ FactorInteger[ # + 1]] [[2]]] > 4 &]
%t A068783 SequencePosition[Table[If[Max[FactorInteger[n][[All,2]]]>4,1,0],{n,120000}],{1,1}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 25 2018 *)
%Y A068783 Cf. A068780, A068781, A068140, A068782, A068784, A068785.
%K A068783 nonn
%O A068783 1,1
%A A068783 _Robert G. Wilson v_, Mar 04 2002