%I #7 Nov 21 2013 12:48:16
%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
|