%I #9 Nov 10 2024 13:48:44
%S 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,
%T 35,44,66,82,119,14,12,42,16,54,38,51,69,85,122,21,19,24,55,145,152,
%U 197,230,271,362,179,155,36,39,153,146,185,533
%N Position of n in A228407.
%C The inverse sequence to A228407.
%e a(0) = 0 since A228407(0) is 0;
%e a(1) = 2 since A228407(2) is 1;
%e a(2) = 6 since A228407(6) is 2;
%e a(11) = 1 since A228407(1) is 11; etc.
%t (* do A228407 first, then *) lst = Array[a, 500, 0]; Flatten[ Table[ Position[lst, n], {n, 0, 57}] - 1]
%Y Cf. A228407.
%K nonn,changed
%O 0,2
%A _Robert G. Wilson v_, Nov 10 2013