login
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
2, 3, 5, 7, 131, 137, 643, 769, 1033, 17159, 17539, 33161, 33409, 33923, 49537, 49801, 49927, 50051, 50311, 65537, 65921, 65929, 66697, 81929, 82567, 98689, 98947, 98953, 114689, 132103, 148483, 148609, 2097289, 2097539, 2097673, 2098183
OFFSET
2,1
LINKS
EXAMPLE
2 -> 2, prime, so add 2 to the sequence;
11 -> 129, not prime, so 129 is not added to the sequence;
13 -> 131, prime, so add 131 to the sequence; etc.
MATHEMATICA
Select[FromDigits[IntegerDigits[#], 128]&/@Prime[Range[500]], PrimeQ] (* Harvey P. Dale, Mar 30 2012 *)
CROSSREFS
Sequence in context: A067173 A357262 A340113 * A167853 A117703 A039944
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jan 18 2004
STATUS
approved