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 A226186 #19 Jun 03 2013 13:54:32
%S A226186 12,21,34,57,75,115,232,299,322,371,376,398,511,579,597,637,713,731,
%T A226186 736,759,763,795,893,938,957,975,992,1112,1121,1137,1157,1173,1175,
%U A226186 1211,1299,1317,1355,1371,1389,1398,1469,1474,1496,1517,1535,1649,1694
%N A226186 Composite numbers with both additive and multiplicative digital roots prime.
%e A226186 322 is here since for 322 additive digital root is 7 and multiplicative digital root is 2, both are primes.
%t A226186 a[n_] := NestWhile[Times@@IntegerDigits[#]&, n, #>9&]; Select[Range[1700], !PrimeQ[#] && And@@PrimeQ[{a[#], Mod[#,9]}]&]
%Y A226186 Cf. A028835, A028843.
%K A226186 nonn,base
%O A226186 1,1
%A A226186 _Jayanta Basu_, Jun 03 2013