cp's OEIS Frontend

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.

A225619 Composite numbers that remain composite if any digit is deleted (zero and one are not considered prime).

This page as a plain text file.
%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