login
Position of n in A228407.
0

%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