login
A052026
Composites base 10 that remain composite in all bases b, 2<=b<=10, expansions interpreted as decimal numbers.
19
14, 18, 20, 24, 30, 32, 36, 40, 42, 44, 51, 54, 60, 62, 69, 70, 72, 74, 76, 78, 80, 86, 90, 92, 96, 98, 99, 100, 102, 104, 108, 110, 112, 114, 120, 124, 125, 126, 128, 129, 130, 132, 135, 140, 144, 146, 148, 150, 152, 156, 158, 159, 160, 162, 164, 168, 170, 174
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range@ 174, AllTrue[Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], CompositeQ] &] (* Michael De Vlieger, Mar 24 2015, version 10 *)
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1999
STATUS
approved