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 A330871 #10 Apr 30 2020 03:25:45
%S A330871 1,2,3,15,255,735,2624,3135,4095,4784,5264,5984,7215,7424,7904,9344,
%T A330871 10064,10335,10815,11024,11984,12375,12495,13695,16184,16575,22575,
%U A330871 22784,22815,26144,26264,27104,30015,30855,30975,32384,33824,34335,34544,38024,38415,39104
%N A330871 Numbers k such that k and k+1 are both phi-practical numbers (A260653).
%H A330871 Amiram Eldar, <a href="/A330871/b330871.txt">Table of n, a(n) for n = 1..10000</a>
%e A330871 1 is a term since both 1 and 2 are phi-practical numbers.
%t A330871 phiPracticalQ[n_] := If[n<1, False, If[n==1, True, (lst = Sort @ EulerPhi @ Divisors[n]; ok=True; Do[If[lst[[m]]>Sum[lst[[l]], {l, 1, m-1}]+1, (ok=False; Break[])], {m, 1, Length[lst]}]; ok)]]; Select[Range[40000], phiPracticalQ[#] && phiPracticalQ[#+1] &] (* after Frank M Jackson at A260653 *)
%Y A330871 Cf. A260653, A287681.
%K A330871 nonn
%O A330871 1,2
%A A330871 _Amiram Eldar_, Apr 29 2020