login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A184779 Numbers m such that prime(m) is of the form 2k + floor(k*sqrt(2)); complement of A184776. 6

%I

%S 2,6,7,9,12,15,18,20,29,34,37,38,39,43,47,57,61,62,63,66,67,77,80,81,

%T 84,86,88,91,94,103,106,107,111,113,115,116,129,133,134,135,140,145,

%U 146,147,150,151,154,156,166,173,177,178,186,188,193,194,197,201,204,205,208

%N Numbers m such that prime(m) is of the form 2k + floor(k*sqrt(2)); complement of A184776.

%H G. C. Greubel, <a href="/A184779/b184779.txt">Table of n, a(n) for n = 1..10000</a>

%e See A184774.

%t r=2^(1/2); s=r/(r-1);

%t a[n_]:=Floor [n*r]; (* A001951 *)

%t b[n_]:=Floor [n*s]; (* A001952 *)

%t Table[a[n],{n,1,120}]

%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 t4={}; Do[If[PrimeQ[b[n]], AppendTo[t4,b[n]]],{n,1,600}]; t4

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

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

%t (* the lists t1,t2,t3,t4,t5,t6 match the sequences

%t A184774, A184775, A184776 ,A184777, A184778, A184779 *)

%Y Cf. A184774, A184776.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 21 2011

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 5 14:49 EDT 2021. Contains 343572 sequences. (Running on oeis4.)