login
Records in A243822.
2

%I #8 Nov 18 2017 03:42:25

%S 0,1,2,4,10,11,14,15,16,20,21,29,52,61,64,72,91,99,100,121,142,151,

%T 156,251,263,281,290,334,347,404,415,441,455,503,519,521,581,595,627,

%U 645,695,1097,1160,1189,1193,1221,1242,1430,1501,1535,1683,1760,1849,2048

%N Records in A243822.

%C See A293555 for comments, linked tables, and conjecture. - _Michael De Vlieger_, Nov 17 2017

%H Michael De Vlieger, <a href="/A293556/b293556.txt">Table of n, a(n) for n = 1..110</a>

%t 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 Cf. A000005, A010846, A243822, A244053, A293555.

%K nonn

%O 1,3

%A _Michael De Vlieger_, Oct 22 2017