login
A302851
Permutation of nonnegative integers: a(0) = 0; for n >= 1, a(n) = A225901(1+A225901(n-1)).
2
0, 1, 4, 3, 18, 5, 2, 7, 10, 9, 96, 11, 8, 13, 16, 15, 6, 17, 14, 19, 22, 21, 12, 23, 20, 25, 28, 27, 42, 29, 26, 31, 34, 33, 600, 35, 32, 37, 40, 39, 30, 41, 38, 43, 46, 45, 36, 47, 44, 49, 52, 51, 66, 53, 50, 55, 58, 57, 24, 59, 56, 61, 64, 63, 54, 65, 62, 67, 70, 69, 60, 71, 68, 73, 76, 75, 90, 77, 74, 79, 82, 81, 48, 83, 80
OFFSET
0,3
FORMULA
a(0) = 0; for n >= 1, a(n) = A225901(1+A225901(n-1)).
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); };
A302851(n) = if(!n, n, A225901(1+A225901(n-1)));
CROSSREFS
Cf. A302852 (inverse).
Cf. A225901.
Sequence in context: A113203 A034486 A130515 * A373946 A276083 A161893
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Apr 26 2018
STATUS
approved