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.

A248642 Odious numbers (A000069) remaining odious if any digit is deleted (zeros allowed).

This page as a plain text file.
%I A248642 #10 Oct 18 2014 16:09:31
%S A248642 11,14,21,22,28,41,42,44,47,74,81,82,84,87,88,131,161,164,191,193,194,
%T A248642 211,256,261,262,321,322,328,352,355,381,382,388,419,421,422,491,494,
%U A248642 502,522,552,555,569,611,614,641,642,644,647,704,744,749,764,769,793
%N A248642 Odious numbers (A000069) remaining odious if any digit is deleted (zeros allowed).
%C A248642 An analog of the idea Wilson-Dale: A034302, A051362.
%H A248642 Peter J. C. Moses, <a href="/A248642/b248642.txt">Table of n, a(n) for n = 1..1000</a>
%e A248642 161 is in the sequence, since the numbers 161,61,11,16 are odious.
%t A248642 odiousQ:=OddQ[First[DigitCount[#,2]]]&;
%t A248642 Select[Range[1000],odiousQ[#]&&Apply[And,Map[odiousQ[FromDigits[#]]&,Subsets[#,{Length[#]-1}]&[IntegerDigits[#]]]]&] (* _Peter J. C. Moses_, Oct 10 2014 *)
%Y A248642 Cf. A000069, A248478, A248644, A248659.
%K A248642 nonn,base
%O A248642 1,1
%A A248642 _Vladimir Shevelev_, Oct 10 2014
%E A248642 More terms from _Peter J. C. Moses_, Oct 10 2014