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,3

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

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

Crossrefs

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

Sequence in context: A243622 A178713 A136818 * A029984 A101519 A227204

Adjacent sequences: A293553 A293554 A293555 * A293557 A293558 A293559

Keyword

nonn

Author

Michael De Vlieger, Oct 22 2017

Status

approved