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 A293556 #8 Nov 18 2017 03:42:25
%S A293556 0,1,2,4,10,11,14,15,16,20,21,29,52,61,64,72,91,99,100,121,142,151,
%T A293556 156,251,263,281,290,334,347,404,415,441,455,503,519,521,581,595,627,
%U A293556 645,695,1097,1160,1189,1193,1221,1242,1430,1501,1535,1683,1760,1849,2048
%N A293556 Records in A243822.
%C A293556 See A293555 for comments, linked tables, and conjecture. - _Michael De Vlieger_, Nov 17 2017
%H A293556 Michael De Vlieger, <a href="/A293556/b293556.txt">Table of n, a(n) for n = 1..110</a>
%t A293556 With[{s = Table[Count[Range@ n, _?(PowerMod[n, #, #] == 0 &)] - DivisorSigma[0, n], {n, 10^4}]}, Union@ FoldList[Max, s]] (* _Michael De Vlieger_, Oct 22 2017 *)
%Y A293556 Cf. A000005, A010846, A243822, A244053, A293555.
%K A293556 nonn
%O A293556 1,3
%A A293556 _Michael De Vlieger_, Oct 22 2017