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 A349233 #8 Nov 12 2021 04:36:10
%S A349233 7,15,23,26,31,39,47,53,55,63,71,87,95,103,107,111,119,124,127,143,
%T A349233 151,159,161,167,175,183,188,191,199,207,215,223,231,239,242,247,249,
%U A349233 255,263,269,271,279,287,303,311,319,323,327,335,359,367,377,383,391,399
%N A349233 Numbers k such that k and k+2 are consecutive cubefree numbers.
%C A349233 The asymptotic density of this sequence is 0.142325864924778... (Mossinghoff et al., 2021).
%H A349233 Amiram Eldar, <a href="/A349233/b349233.txt">Table of n, a(n) for n = 1..10000</a>
%H A349233 Michael J. Mossinghoff, Tomás Oliveira e Silva, and Tim Trudgian, <a href="https://doi.org/10.1090/mcom/3581">The distribution of k-free numbers</a>, Mathematics of Computation, Vol. 90, No. 328 (2021), pp. 907-929; <a href="https://arxiv.org/abs/1912.04972">arXiv preprint</a>, arXiv:1912.04972 [math.NT], 2019-2020.
%e A349233 7 is a term since 7 and 7 + 2 = 9 = 3^2 are cubefree, and 7 + 1 = 8 = 2^3 is not.
%t A349233 cubeFreeQ[n_] := AllTrue[FactorInteger[n][[;; , 2]], # < 3 &]; Select[Range[400], Boole[cubeFreeQ /@ (# + {0, 1, 2})] == {1, 0, 1} &]
%Y A349233 Cf. A004709, A046099, A340152, A349234, A349235.
%K A349233 nonn
%O A349233 1,1
%A A349233 _Amiram Eldar_, Nov 11 2021