login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A071849 Numbers n such that A245788(n) > prime(n). 1
3, 7, 11, 15, 23, 27, 29, 30, 31, 47, 55, 59, 61, 62, 63, 95, 111, 119, 123, 125, 126, 127, 159, 175, 183, 187, 189, 191, 223, 239, 247, 251, 253, 254, 255, 319, 351, 367, 375, 379, 381, 382, 383, 415, 431, 439, 447, 479, 495, 503, 507, 509, 510, 511, 639, 703 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

MAPLE

p:= 1: Res:= NULL: count:= 0:

for n from 1 while count < 100 do

  p:= nextprime(p);

  if n*convert(convert(n, base, 2), `+`) > p then

    count:= count+1; Res:= Res, n;

  fi

od:

Res; # Robert Israel, Oct 30 2018

PROG

(PARI) for(n=1, 1000, b=binary(n); if(sum(i=1, length(b), component(b, i))*n>prime(n), print1(n, ", ")))

(PARI) is(n, p=prime(n))=hammingweight(n)*n>p \\ Charles R Greathouse IV, Oct 30 2018

(PARI) list(lim)=my(v=List(), n); forprime(p=2, , if(n++>lim, return(Vec(v))); if(hammingweight(n)*n>p, listput(v, n))); \\ Charles R Greathouse IV, Oct 30 2018

CROSSREFS

Cf. A000040, A000120, A245788.

Sequence in context: A182838 A163094 A022800 * A165197 A246559 A246521

Adjacent sequences:  A071846 A071847 A071848 * A071850 A071851 A071852

KEYWORD

base,easy,nonn

AUTHOR

Benoit Cloitre, Jun 09 2002

STATUS

approved

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 September 20 10:10 EDT 2019. Contains 327229 sequences. (Running on oeis4.)