OFFSET
1,1
COMMENTS
Subsequence of A030461.
a(n) is the concatenation of the smallest prime p and the next prime q, such that p + 6n = q and the concatenations of these 2 primes is also prime. a(n) = 0 if no such term exists.
LINKS
Jean-Marc Rebert, Table of n, a(n) for n = 1..32
EXAMPLE
MAPLE
Primes:= select(isprime, [seq(i, i=3..10^7, 2)]):
cati:= (x, y) -> 10^(1+ilog10(y))*x+y;
for i from 1 to nops(Primes)-1 do
g:= Primes[i+1]-Primes[i];
if g mod 6 <> 0 then next fi;
if assigned(A[g/6]) then next fi;
z:= cati(Primes[i], Primes[i+1]);
if isprime(z) then A[g/6]:= z fi;
od:
seq(A[i], i=1..max(map(op, [indices(A)]))); # Robert Israel, Jan 24 2016
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jean-Marc Rebert, Jan 20 2016
STATUS
approved