OFFSET
1,1
COMMENTS
a(19) (if it exists) will be more than A038396(3000).
a(2) and a(3) are a pair of twin primes, a(4) and a(5) also.
LINKS
Eric Weisstein's World of Mathematics, Consecutive Number Sequences
MATHEMATICA
Select[#, PrimeQ] &@ Flatten@ Table[{# - 1, # + 1} &@ FromDigits@ Flatten@ Reverse@ Take[#, n], {n, Length@ #}] &@ Array[IntegerDigits[2 #] &, 40] (* Michael De Vlieger, May 14 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
XU Pingya, May 12 2017
STATUS
approved