OFFSET
1,2
COMMENTS
LINKS
E. Angelini, Any digit-pair in S sums to a prime, SeqFan list, Apr 11 2013
PROG
(PARI) {A219249(n, a=[1], u=0)=while(#a<n, u+=1<<a[#a]; for(t=a[1]+1, 9e9, bittest(u, t)&next; my(d=concat(a[#a]%10, digits(t))); for(i=2, #d, isprime(abs(d[i-1]-d[i]))||next(2)); a=concat(a, t); break)); a}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Apr 11 2013
STATUS
approved