A029786 Cubes such that digits of cube root of n are not present in n.
8, 27, 343, 512, 10648, 19683, 79507, 103823, 110592, 140608, 148877, 250047, 314432, 456533, 778688, 3869893, 5088448, 5545233, 6539203, 6644672, 7077888, 10941048, 11089567, 16003008, 18191447, 27818127, 54010152, 67917312, 75686967, 86350888, 96071912
Offset: 1
Links
- Giovanni Resta, Table of n, a(n) for n = 1..1699 (terms < 10^57)
Programs
-
Mathematica
Select[Range[1000], {} == Intersection @@ IntegerDigits[{#, #^3}] &]^3 (* Giovanni Resta, Aug 08 2018 *)
Extensions
More terms from Giovanni Resta, Aug 08 2018