OFFSET
1,1
COMMENTS
Primes in A030656.
LINKS
Paul Tek, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[FromDigits[Join[Flatten[IntegerDigits[{n, n+1}]]]], {n, 270}], PrimeQ] (* Jayanta Basu, May 16 2013 *)
PROG
(Magma) [m: n in [2..270 by 2] | IsPrime(m) where m is Seqint(Intseq(n+1) cat Intseq(n))]; // Bruno Berselli, Jun 18 2011
(PARI) forstep(n=2, 1e3, 2, if(isprime(k=eval(Str(n, n+1))), print1(k", "))) \\ Charles R Greathouse IV, Jun 18 2011
(Python)
from sympy import isprime
from itertools import count, islice
def agen(): yield from filter(isprime, (int(str(k)+str(k+1)) for k in count(2, 2)))
print(list(islice(agen(), 38))) # Michael S. Branicky, Aug 05 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved