A275589 The almost-natural numbers with prime digits removed.

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, 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, 8, 6, 9, 0, 1, 4, 6, 8, 9, 8, 0, 8, 1, 8, 8, 8, 4, 8

Offset: 1

Author

Dave Durgin, Aug 02 2016

Keywords

• base
• nonn

Comments

Nonprime complement of A275542.

Examples

			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.
		

Links

• Robert Price, Table of n, a(n) for n = 1..4492

Crossrefs

Nonprimes of A007376 and/or A033307.

Cf. A275542.

Programs

Mathematica

DeleteCases[Map[IntegerDigits, Range@ 120] // Flatten, k_ /; PrimeQ@ k] (* Michael De Vlieger, Aug 03 2016 *)
Table[DeleteCases[IntegerDigits[n],?PrimeQ],{n,100}]//Flatten (* _Harvey P. Dale, Dec 31 2017 *)

Extensions

More terms from Robert Price, Mar 31 2017