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 A225619 #27 Aug 14 2013 19:10:53 %S A225619 44,46,48,49,64,66,68,69,84,86,88,94,96,98,99,104,106,108,120,122,124, %T A225619 125,126,128,140,142,144,145,146,148,150,152,154,155,156,158,160,162, %U A225619 164,165,166,168,180,182,184,185,186,188,204,206,208,210,212,214,215 %N A225619 Composite numbers that remain composite if any digit is deleted (zero and one are not considered prime). %C A225619 These are sometimes called "deletable composites". %H A225619 T. D. Noe, <a href="/A225619/b225619.txt">Table of n, a(n) for n = 1..10000</a> %H A225619 Dave Radcliffe, <a href="http://ideone.com/ul7Evh">Python program/code</a> %e A225619 142 is composite. If the 1 is deleted, 42 is composite. If the 4 is deleted, 12 is composite. If the 2 is deleted, 14 is composite. Therefore, 142 is included in this sequence. %t A225619 prime01Q[n_] := n == 0 || n == 1 || PrimeQ[n]; okQ[n_] := Module[{d = IntegerDigits[n]}, Not[Or @@ prime01Q /@ Table[FromDigits[Delete[d, i]], {i, Length[d]}]]]; Select[Range[215], ! PrimeQ[#] && okQ[#] &] (* _T. D. Noe_, Aug 14 2013 *) %Y A225619 Cf. A202262 (composite numbers in which all substrings are composite). %K A225619 nonn,base,easy %O A225619 1,1 %A A225619 _Derek Orr_, Aug 04 2013