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 A228019 #25 Sep 08 2022 08:46:05 %S A228019 4,6,8,9,15,18,22,24,26,27,28,33,35,36,39,40,42,44,45,46,48,51,54,55, %T A228019 57,60,62,63,64,66,68,69,72,75,77,78,80,81,82,84,86,87,88,90,91,93,95, %U A228019 96,99,105,108,112,114,116,117,118,121,123,125,126,129,130,132 %N A228019 Composite numbers whose sum of digits is a composite number. %H A228019 Charles R Greathouse IV, <a href="/A228019/b228019.txt">Table of n, a(n) for n = 1..10000</a> %e A228019 87 is a term: 87 and 8+7=15 are composite. %o A228019 (PARI) lista(N) = my(s); for(n=2,N, s=sumdigits(n); if(!isprime(n)&&!isprime(s)&&s>1, print1(n,", ") ) ) \\ _Joerg Arndt_, Aug 04 2013 %o A228019 (PARI) list(N)=my(v=List(),s); forcomposite(n=4,N,s=sumdigits(n); if(s>1 && !isprime(s), listput(v,n))); Vec(v) \\ _Charles R Greathouse IV_, Aug 13 2013 %o A228019 (Magma) [n: n in [4..200] | not IsPrime(n) and not IsPrime(&+Intseq(n))]; // _Bruno Berselli_, Aug 13 2013 %Y A228019 Subsequence of A104211. %K A228019 nonn,base,easy %O A228019 1,1 %A A228019 _Derek Orr_, Aug 02 2013