%I #8 Apr 09 2014 10:15:01
%S 1,2,4,3,6,5,9,7,12,8,11,10,16,13,19,14,15,18,17,25,21,20,24,22,27,23,
%T 26,32,28,30,34,31,40,37,29,35,33,36,42,38,39,44,43,48,41,47,51,49,56,
%U 45,46,50,59,53,54,52,55,58,57,63,62,68,64,60,80,66,61,69,74,67,65,70
%N Inverse permutation to sequence A114792 (if sequence A114792 is indeed a permutation of the positive integers).
%C Sequence is a permutation of the positive integers if the number of twin prime pairs is infinite.
%t f[n_] := Block[{c = (Prime[n + 2] - Prime[n + 1])/2, d = 0, k = 1}, While[d < c, k++; If[ !MemberQ[lst, k], d++ ]]; AppendTo[lst, k]]; lst = {1}; Do[ f[n], {n, 2, 80}]; Table[Position[lst, n], {n, 72}] // Flatten (* _Robert G. Wilson v_ *)
%Y Cf. A114792.
%K nonn
%O 1,2
%A _Leroy Quet_, Jun 06 2006
%E More terms from _Robert G. Wilson v_, Jun 07 2006
|