A266343 Positions of records in A266342.

1, 120, 1980, 7920, 30240, 109200, 120120, 480480, 491400, 1853280, 1884960, 1965600, 2106720, 7207200, 8168160, 8482320, 8648640, 31600800, 121080960, 122522400, 129729600, 136936800, 465585120, 490089600, 497296800, 514594080, 537213600, 551350800

Offset: 1

Author

Antti Karttunen, Dec 28 2015

Keywords

• nonn
• base

Comments

The corresponding record values A266342(a(n)) are 1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 21, 25, 26, ...

Links

• Hiroaki Yamanouchi, Table of n, a(n) for n = 1..56

Crossrefs

Cf. A266342.

Programs

PARI

A000523(n) = if(n<1,0,#binary(n) - 1);
A266342(n) = sumdiv(n, d, ((d <= (n/d)) && (A000523(d)==A000523(n/d))));
m=0; i=0; for(n=1, 2^32, k = A266342(n); if(k > m, m = k; i++; write("b266343.txt", i, " ", n)));

Extensions

a(20)-a(28) from Hiroaki Yamanouchi, Jan 02 2016