This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A287311 #6 May 26 2017 22:52:32
%S A287311 17,53,71,1039,1429,1559,1949,2339,2729,3119,3769,4159,33857,34883,
%T A287311 40013,41039,48221,50273,54377,58481,61559,63611,69767,70793,74897,
%U A287311 76949,84131,86183,89261,96443,100547,101573,104651,106703,110807,111833,112859,117989,120041
%N A287311 Primes that can be generated by the concatenation in base 8, in descending order, of two consecutive integers read in base 10.
%e A287311 1 and 2 in base 8 are 1 and 2 and concat(2,1) = 21 in base 10 is 17;
%e A287311 7 and 8 in base 8 are 7 and 10 and concat(10,7) = 107 in base 10 is 71.
%p A287311 with(numtheory): P:= proc(q,h) local a,b,c,d,k,n; a:=convert(q+1,base,h); b:=convert(q,base,h); c:=[op(a),op(b)]; d:=0; for k from nops(c) by -1 to 1 do d:=h*d+c[k]; od; if isprime(d) then d; fi; end: seq(P(i,8),i=0..1000);
%t A287311 With[{b = 8}, Select[Map[FromDigits[Flatten@ IntegerDigits[#, b], b] &, Reverse /@ Partition[Range[0, 250], 2, 1]], PrimeQ]] (* _Michael De Vlieger_, May 25 2017 *)
%Y A287311 Cf. A000040, A052089.
%K A287311 nonn,base,easy
%O A287311 1,1
%A A287311 _Paolo P. Lava_, May 24 2017