A293556 Records in A243822.

0, 1, 2, 4, 10, 11, 14, 15, 16, 20, 21, 29, 52, 61, 64, 72, 91, 99, 100, 121, 142, 151, 156, 251, 263, 281, 290, 334, 347, 404, 415, 441, 455, 503, 519, 521, 581, 595, 627, 645, 695, 1097, 1160, 1189, 1193, 1221, 1242, 1430, 1501, 1535, 1683, 1760, 1849, 2048

Offset: 1

Author

Michael De Vlieger, Oct 22 2017

Keywords

• nonn

Comments

See A293555 for comments, linked tables, and conjecture. - Michael De Vlieger, Nov 17 2017

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..110

Crossrefs

Cf. A000005, A010846, A243822, A244053, A293555.

Programs

Mathematica

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 *)