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.

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

Harvey P. Dale, Table of n, a(n) for n = 2..1000

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

Adjacent sequences: A090715 A090716 A090717 * A090719 A090720 A090721

Keyword

base,nonn

Author

Cino Hilliard, Jan 18 2004

Status

approved