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 A272329 #11 Mar 14 2020 16:48:56
%S A272329 1,3,16,15,35,39,45,91,111,117,135,364,287,296,292,273,369,385,429,
%T A272329 482,465,866,819,861,915,964,1154,1209,1281,1558,1448,1395,1845,1928,
%U A272329 2432,2336,2308,2306,2275,2379,3472,3416,3285,3344,2583,3224,2715,2775,2896,3003
%N A272329 Indices of records in A272328.
%t A272329 t = Table[Count[Range@ n, k_ /; EulerPhi@ n == EulerPhi[n + k]], {n, 3600}]; TakeWhile[Flatten[FirstPosition[t, #] & /@ Range@ Max@ t] /. n_ /; MissingQ@ n -> 0, # != 0 &] (* _Michael De Vlieger_, Apr 25 2016, Version 10.2 *)
%o A272329 (Sage) L=[sum([1 for k in [1..n] if euler_phi(n)==euler_phi(n+k)]) for n in [1..4000]]
%o A272329 print([L.index(i)+1 for i in [1..50]])
%Y A272329 Cf. A272328, A081375.
%K A272329 nonn
%O A272329 1,2
%A A272329 _Tom Edgar_, Apr 25 2016