login
Inverse of A097104.
2

%I #6 Feb 05 2014 20:18:05

%S 4,1,2,3,400,8,5,6,12,7,69,16,9,10,21,11,61,27,13,14,31,15,92,38,17,

%T 347,18,43,19,20,47,142,22,53,23,163,24,25,14006,26,65,720,28,29,3310,

%U 30,79,4087,32,85,33,268,34,35,1103,36,97,37,324,103,39,40,110,41,1405,42,117

%N Inverse of A097104.

%t lst = Table[n, {n, 100}]; f[m_] := (lst = Drop[ Insert[ lst, lst[[m]], Prime[m] + 1], {m, m}]); Do[ f[n], {n, 25}]; Take[lst, 70]; g[n_] := Block[{k = 1}, While[ lst[[k]] != n, k++ ]; k]; Table[ g[n], {n, 70}]

%Y Cf. A097104, A100352.

%K nonn

%O 1,1

%A _Leroy Quet_ and _Robert G. Wilson v_, Nov 18 2004