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 A287308 #8 May 24 2017 09:14:16
%S A287308 17,41,401,601,701,751,1051,1151,1201,1301,1451,1601,1801,1901,1951,
%T A287308 2251,2351,18233,19609,20297,20641,21673,25457,25801,26489,26833,
%U A287308 31649,33713,34057,35089,36809,38873,39217,41281,41969,46441,47129,49193,49537,51257,52289
%N A287308 Primes that can be generated by the concatenation in base 7, in ascending order, of two consecutive integers read in base 10.
%e A287308 2 and 3 in base 7 are 2 and 3 and concat(2,3) = 23 in base 10 is 17;
%e A287308 8 and 9 in base 7 are 11 and 12 and concat(11,12) = 1112 in base 10 is 401.
%p A287308 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,7),i=1..1000);
%t A287308 With[{b = 7}, Select[Map[FromDigits[Flatten@ IntegerDigits[#, b], b] &, Partition[Range@ 160, 2, 1]], PrimeQ]] (* _Michael De Vlieger_, May 23 2017 *)
%Y A287308 Cf. A000040, A030458.
%K A287308 nonn,base,easy
%O A287308 1,1
%A A287308 _Paolo P. Lava_, May 23 2017