OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..62 (terms < 10^1000, first 56 terms from Robert Israel)
EXAMPLE
MAPLE
N:= 10^100:
sort(select(t -> isprime(t) and isprime(t-2),
[seq(seq(1+2^i*3^j, i=1..ilog2(floor(N/3^j))), j=0..floor(log[3](N)))])); # Robert Israel, May 14 2018
MATHEMATICA
1 + Select[With[{n = 10^15}, Sort@ Flatten@ Table[2^p * 3^q, {p, 0, Log2@ n}, {q, 0, Log[3, n/(2^p)]}] ], AllTrue[# + {-1, 1}, PrimeQ] &] (* Michael De Vlieger, May 14 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 11 2002
STATUS
approved