The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A090718 Let p run through the primes; write p in base 10 and then interpret it in base 128 getting a number q; if q is prime then adjoin q to the sequence. 1

%I

%S 2,3,5,7,131,137,643,769,1033,17159,17539,33161,33409,33923,49537,

%T 49801,49927,50051,50311,65537,65921,65929,66697,81929,82567,98689,

%U 98947,98953,114689,132103,148483,148609,2097289,2097539,2097673,2098183

%N Let p run through the primes; write p in base 10 and then interpret it in base 128 getting a number q; if q is prime then adjoin q to the sequence.

%H Harvey P. Dale, <a href="/A090718/b090718.txt">Table of n, a(n) for n = 2..1000</a>

%e 2 -> 2, prime, so add 2 to the sequence;

%e 11 -> 129, not prime, so 129 is not added to the sequence;

%e 13 -> 131, prime, so add 131 to the sequence; etc.

%t Select[FromDigits[IntegerDigits[#],128]&/@Prime[Range[500]],PrimeQ] (* _Harvey P. Dale_, Mar 30 2012 *)

%K base,nonn

%O 2,1

%A _Cino Hilliard_, Jan 18 2004

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

Last modified May 22 15:29 EDT 2022. Contains 353957 sequences. (Running on oeis4.)