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 A298762 #18 Sep 20 2018 08:16:46
%S A298762 1,2,5,21,9177,244965,14307854,24571869,128199057,140830365,401767629,
%T A298762 420567854,468190437,525970977,780768165,886434645,1597167645,
%U A298762 4046753949,4473784821,5364666165,5515718205,11175736334,14408460165,18026319710,20106993885,20357733129
%N A298762 Numbers n such that uphi(n) = uphi(n+2) - uphi(n+1), where uphi is the unitary totient function (A047994).
%e A298762 21 is in the sequence since uphi(21) = 12 = uphi(23) - uphi(22) = 22 - 10.
%t A298762 uphi[n_] := If[n>1,(Times @@ (Table[ #[[1]]^ #[[2]] - 1, {1} ] & /@ FactorInteger[n]))[[1]],1]; Select[Range[10^7], uphi[#] == uphi[# + 2] - uphi[# + 1] &]
%o A298762 (PARI) uphi(n) = my(f=factor(n)); prod(i=1, #f~, f[i, 1]^f[1, 2]-1);
%o A298762 isok(n) = uphi(n) == uphi(n+2) - uphi(n+1); \\ _Michel Marcus_, Jan 26 2018
%Y A298762 Cf. A047994, A229552 (corresponding sequence with phi).
%K A298762 nonn
%O A298762 1,2
%A A298762 _Amiram Eldar_, Jan 26 2018
%E A298762 a(7)-a(26) from _Giovanni Resta_, Jan 26 2018