A229218 Position of n in A228407.

0, 2, 6, 10, 17, 34, 45, 65, 81, 118, 3, 1, 5, 11, 18, 33, 46, 64, 80, 117, 7, 26, 9, 41, 23, 35, 44, 66, 82, 119, 14, 12, 42, 16, 54, 38, 51, 69, 85, 122, 21, 19, 24, 55, 145, 152, 197, 230, 271, 362, 179, 155, 36, 39, 153, 146, 185, 533

Offset: 0

Author

Robert G. Wilson v, Nov 10 2013

Keywords

• nonn

Comments

The inverse sequence to A228407.

Examples

			a(0) = 0 since A228407(0) is 0;
a(1) = 2 since A228407(2) is 1;
a(2) = 6 since A228407(6) is 2;
a(11) = 1 since A228407(1) is 11; etc.
		

Crossrefs

Cf. A228407.

Programs

Mathematica

(* do A228407 first, then *) lst = Array[a, 500, 0]; Flatten[ Table[ Position[lst, n], {n, 0, 57}] - 1]