A184864 - OEIS

%I #5 Mar 30 2012 18:57:17

%S 4,7,13,14,17,19,26,27,29,31,33,36,41,47,50,56,58,60,65,67,69,74,77,

%T 78,83,84,85,87,88,91,94,95,97,100,104,106,108,110,113,114,117,119,

%U 121,123,128,129,135,138,139,142,143,145,146,148,150,152,155,160,163,166,167,169,174,176,177,180,183,186,187,190,191,195,196,198,201,203,207,209,211,216,220,221,222,224,227,228,235,239,243,244,246,247

%N Numbers m such that prime(m) is of the form floor(n+nr-r/2), where r=(1+sqrt(5))/2; complement of A184861.

%t r=(1+5^(1/2))/2;

%t a[n_]:=Floor [n+n*r-r/2];

%t Table[a[n], {n, 1, 120}]  (* A007064 *)

%t t1={}; Do[If[PrimeQ[a[n]], AppendTo[t1, a[n]]], {n, 1, 600}]; t1

%t t2={}; Do[If[PrimeQ[a[n]], AppendTo[t2, n]], {n, 1, 600}]; t2

%t t3={}; Do[If[MemberQ[t1, Prime[n]], AppendTo[t3, n]], {n, 1, 300}]; t3

%t *( Lists t1, t2, t3 match A184862, A184863, A184864.)

%Y Cf. A184774, A184862, A184863.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 23 2011