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 A071247 #12 Dec 05 2019 10:20:45
%S A071247 7,12,19,29,86,96,99,121,132,138,153,154,164,183,192,220,230,234,251,
%T A071247 274,280,286,353,390,444,455,476,484,539,589,651,675,704,730,774,785,
%U A071247 813,850,867,944,965,1069,1152,1216,1238,1250,1266,1280,1299,1308,1333
%N A071247 Numbers n such that A078142(n) = A078142(n+1), where A078142(n) is the sum of the differences of the distinct prime factors p of n and the next square larger than p.
%H A071247 Amiram Eldar, <a href="/A071247/b071247.txt">Table of n, a(n) for n = 1..10000</a>
%t A071247 s[n_] := Total[Ceiling[Sqrt[(p = FactorInteger[n][[;;,1]])]]^2 - p]; s0 = 0; seq = {}; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n - 1]]; s1 = s2, {n, 2, 1334}]; seq (* _Amiram Eldar_, Dec 05 2019 *)
%Y A071247 Cf. A078142.
%K A071247 nonn
%O A071247 1,1
%A A071247 _Jason Earls_, Nov 20 2002