A331171 a(n) = min(n, A225901(n)), where A225901 is factorial base flip.

0, 1, 2, 3, 2, 3, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 14, 15, 6, 7, 10, 11, 8, 9, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 48, 49, 52, 53, 50, 51, 66, 67, 70, 71, 68, 69, 60, 61, 64, 65, 62, 63, 54, 55, 58, 59

Offset

0,3

Comments

For all i, j:

a(i) = a(j) => A060130(i) = A060130(j).

For all i, j > 0:

a(i) = a(j) => A055881(i) = A055881(j).

Links

Antti Karttunen, Table of n, a(n) for n = 0..40319

Index entries for sequences related to factorial base representation

Formula

a(n) = min(n, A225901(n)).

Prog

(PARI)
A225901(n) = { my(s=0, d, k=2); while(n, d=n%k; n=n\k; if(d, s += (k-d)*(k-1)!); k=k+1); (s); };
A331171(n) = min(n, A225901(n));

Crossrefs

Cf. A055881, A060130, A225901.

Cf. also A330740, A331172.

Sequence in context: A318789 A328841 A276008 * A336953 A193917 A089135

Adjacent sequences: A331168 A331169 A331170 * A331172 A331173 A331174

Keyword

nonn,base

Author

Antti Karttunen, Jan 12 2020

Status

approved