|
%I #6 May 01 2021 15:56:07
%S 1,2,3,5,4,7,10,16,6,8,22,12,9,14,20,11,41,26,19,35,21,23,13,15,28,37,
%T 38,39,53,17,32,18,45,33,56,49,68,40,92,24,25,52,27,43,123,44,87,98,
%U 177,100,29,30,63,31,67,69,88,71,54,34,73,36,57,76,77,252,80,118,85,121,165
%N Position in A112037 where the n-th prime appears.
%H Michael De Vlieger, <a href="/A114461/b114461.txt">Table of n, a(n) for n = 1..10000</a>
%t lst = {}; r[n_] := (len = Length@lst; lst = Flatten@ Join[lst, Select[First /@ FactorInteger[Prime@n - 1], ! MemberQ[lst, # ] &]]; If[l < Length@lst, 1, 0]); Do[ r[n], {n, 260}]; Table[Position[lst, Prime[n]], {n, 71}] // Flatten
%Y Cf. A112037, A112038.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Nov 29 2005
|
