A305463 Inverse permutation to A305458.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 22, 23, 12, 13, 14, 15, 10, 11, 18, 19, 20, 21, 28, 29, 24, 25, 26, 27, 16, 17, 30, 31, 32, 33, 124, 125, 36, 37, 38, 39, 202, 203, 132, 133, 134, 135, 130, 131, 168, 169, 170, 171, 58, 59, 84, 85, 86, 87, 76, 77, 60, 61, 62, 63
Offset: 0
Links
Crossrefs
Cf. A305458.
Programs
-
PARI
a(n) = my (v=0, k=1, r=2, p=1); while (n, my (d=n % r); if (d, my (t = lift(Mod(d, r)/Mod(k, r))); v += t * p; k *= t); n \= r; p *= r; r = nextprime(r+1)); return (v)
Comments