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 A213394 #26 Jul 07 2012 05:18:47
%S A213394 -1,-1,-2,-3,4,3,0,-1,3,-8,8,-9,9,2,-13,1,-28,12,-23,13,0,-41,-1,-48,
%T A213394 -38,26,27,28,29,27,17,29,12,7,-1,31,2,20,-3,19,-22,34,34,17,-18,-35,
%U A213394 45,36,21,14,33,-2,45,44,-15,20,-51,44,-39,44,13,8,63,61,56
%N A213394 The difference between n and the product of the digits of the n-th prime.
%C A213394 The first three zeros occur at terms 7, 21 and 181440.
%H A213394 T. D. Noe, <a href="/A213394/b213394.txt">Table of n, a(n) for n = 1..10000</a>
%F A213394 a(n) = A000027(n) - A053666(n).
%t A213394 Table[n - Times @@ IntegerDigits[Prime[n]], {n, 100}] (* _T. D. Noe_, Jun 28 2012 *)
%K A213394 base,easy,sign
%O A213394 1,3
%A A213394 _Michael Turniansky_, Jun 28 2012