A157911 Nonprimes whose digits are all cubes.

0, 1, 8, 10, 18, 80, 81, 88, 100, 108, 110, 111, 118, 180, 188, 800, 801, 808, 810, 818, 880, 888, 1000, 1001, 1008, 1010, 1011, 1018, 1080, 1081, 1088, 1100, 1101, 1108, 1110, 1111, 1118, 1180, 1188, 1800, 1808, 1810, 1818, 1880, 1881, 1888, 8000, 8001

Offset: 1

Author

Juri-Stepan Gerasimov, Mar 09 2009

Keywords

• nonn
• base
• less

Comments

Cube digits are 0, 1 or 8 (i.e., 0=0*0*0, 1=1*1*1 or 8=2*2*2).

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..2000

Crossrefs

Cf. A000578, A141468.

Programs

Mathematica

Select[FromDigits/@Tuples[{0,1,8},5],!PrimeQ[#]&] (* Harvey P. Dale, Apr 05 2025 *)

Formula

A046031 SET-MINUS A000040. [R. J. Mathar, Mar 17 2009]

Extensions

Numbers in the range 1100 to 1188 added by R. J. Mathar, Mar 17 2009