cp's OEIS Frontend

A184855 Numbers m such that prime(m) is of the form (k*e); complement of A184858.

%I A184855 #5 Mar 30 2012 18:57:17
%S A184855 1,3,6,8,10,14,17,19,21,24,25,27,31,35,37,38,40,41,51,52,53,56,57,58,
%T A184855 59,62,63,67,68,69,71,76,82,86,91,98,102,107,113,114,116,126,127,130,
%U A184855 131,135,136,143,145,146,147,153,155,158,159,163,168,170,171,176,177,181,185,186,187,192,193,195,196,197,199,200,202,206,208,210,214,216,218,219,222,225,226,230,232,234,237,240,243,244,248,249,252,254
%N A184855 Numbers m such that prime(m) is of the form (k*e); complement of A184858.
%e A184855 See A077545.
%t A184855 r=E; s=r/(r-1);
%t A184855 a[n_]:=Floor [n*r];
%t A184855 b[n_]:=Floor [n*s];
%t A184855 Table[a[n], {n, 1, 120}]  (* A022843 *)
%t A184855 t1={}; Do[If[PrimeQ[a[n]], AppendTo[t1, a[n]]], {n, 1, 600}]; t1
%t A184855 t2={}; Do[If[PrimeQ[a[n]], AppendTo[t2, n]], {n, 1, 600}]; t2
%t A184855 t3={}; Do[If[MemberQ[t1, Prime[n]], AppendTo[t3, n]], {n, 1, 300}]; t3
%t A184855 t4={}; Do[If[PrimeQ[b[n]], AppendTo[t4, b[n]]], {n, 1, 600}]; t4
%t A184855 t5={}; Do[If[PrimeQ[b[n]], AppendTo[t5, n]], {n, 1, 600}]; t5
%t A184855 t6={}; Do[If[MemberQ[t4, Prime[n]], AppendTo[t6, n]], {n, 1, 300}]; t6
%t A184855 (* List t1 matches A077545; list t2 matches A062409;
%t A184855 lists t3-t6 match A184855-A184858. *)
%Y A184855 Cf. A077545, A184858.
%K A184855 nonn
%O A184855 1,2
%A A184855 _Clark Kimberling_, Jan 23 2011