Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #17 Jan 02 2023 12:30:49
%S 1,3,5,2,4,6,8,13,14,7,9,20,24,16,18,30,25,27,29,41,31,35,36,38,50,52,
%T 42,46,47,49,61,63,53,57,58,64,68,69,70,72,74,75,79,202,92,94,96,81,
%U 83,85,86,97,203,130,205,207,241,302,413,131,303,135,242,414,136,138,141,305,246,142,416,146,147,247,249,250
%N Lexicographically earliest sequence of positive integers such that the absolute difference of any two adjacent digits is prime.
%C See A219250 for the version allowing nonnegative integers, i.e., starting with a(1)=0.
%C See A219248 for the numbers which occur in this sequence, and A219251 for the complement.
%H E. Angelini, <a href="http://list.seqfan.eu/oldermail/seqfan/2013-April/011035.html">Any digit-pair in S sums to a prime</a>, SeqFan list, Apr 11 2013
%o (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}
%Y Cf. A182175, A182177, A182178.
%K nonn,base
%O 1,2
%A _Eric Angelini_ and _M. F. Hasler_, Apr 11 2013