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 A328903 #25 Nov 01 2019 11:43:05 %S A328903 0,0,1,0,2,2,0,2,3,0,3,4,0,3,5,0,4,2,0,6,5,0,4,5,0,6,7,0,6,9,0,6,8,0, %T A328903 9,8,0,7,7,0,9,10,0,11,2,0,12,12,0,10,11,0,11,14,0,3,10,0,10,12,0,16, %U A328903 12,0,16,14,0,14,19,0,13,17,0,12,16,0,15,2,0 %N A328903 Number of primes that are a concatenation of two positive integers whose sum is n. %C A328903 First n > 1 with n != 0 (mod 3) and a(n) = 0 is n = 4477. - _Alois P. Heinz_, Oct 30 2019 %H A328903 Alois P. Heinz, <a href="/A328903/b328903.txt">Table of n, a(n) for n = 0..20000</a> %F A328903 a(n) = 0 if n = 1 or n == 0 (mod 3). - _Alois P. Heinz_, Oct 30 2019 %e A328903 1(-), 2(11), 3(-), 4(13, 31), 5(23, 41), 6(-), 7(43, 61), 8(17, 53, 71), 9(-), 10(19, 37, 73), 11(29, 47, 83, 101), 12(-), 13(67, 103, 211), ... %p A328903 a:= proc(n) option remember; `if`(irem(n, 3)=0, 0, add( %p A328903 `if`(isprime(parse(cat(i, n-i))), 1, 0), i=1..n-1)) %p A328903 end: %p A328903 seq(a(n), n=0..100); # _Alois P. Heinz_, Oct 30 2019 %Y A328903 Cf. A000040, A008486, A008585, A066686, A067574, A154530, A328932. %K A328903 nonn,base,look,easy %O A328903 0,5 %A A328903 _Juri-Stepan Gerasimov_, Oct 30 2019 %E A328903 More terms from _Alois P. Heinz_, Oct 30 2019