|
%I #27 Oct 06 2018 03:55:57
%S 1,4,6,8,9,1,0,1,1,1,1,1,4,1,1,6,1,1,8,1,9,0,1,4,6,8,9,0,1,4,6,8,9,4,
%T 0,4,1,4,4,4,4,4,4,6,4,4,8,4,9,0,1,4,6,8,9,6,0,6,1,6,6,6,4,6,6,6,6,6,
%U 8,6,9,0,1,4,6,8,9,8,0,8,1,8,8,8,4,8
%N The almost-natural numbers with prime digits removed.
%C Nonprime complement of A275542.
%H Robert Price, <a href="/A275589/b275589.txt">Table of n, a(n) for n = 1..4492</a>
%e Write the digits of the positive integers in continuous form: 1,2,3,4,5,6,7,8,9,1,0,1,1,1,2,1,3,1,4,1,5,...; then remove prime digits (2,3,5,7) from the sequence.
%t DeleteCases[Map[IntegerDigits, Range@ 120] // Flatten, k_ /; PrimeQ@ k] (* _Michael De Vlieger_, Aug 03 2016 *)
%t Table[DeleteCases[IntegerDigits[n],_?PrimeQ],{n,100}]//Flatten (* _Harvey P. Dale_, Dec 31 2017 *)
%Y Nonprimes of A007376 and/or A033307.
%Y Cf. A275542.
%K base,nonn
%O 1,2
%A _Dave Durgin_, Aug 02 2016
%E More terms from _Robert Price_, Mar 31 2017
|
