%I A061247
%S A061247 11,101,181,811,881,1181,1801,1811,8011,8081,8101,8111,10111,10181,
%T A061247 11801,18181,80111,81001,81101,81181,88001,88801,88811,100801,100811,
%U A061247 101081,101111,108011,108881,110881,118081,118801,180001,180181,180811
%N A061247 Prime numbers with every digit a perfect cube, i.e. consisting of only 
               digits 0, 1 and 8.
%e A061247 a(6) = 1801, 1801 is a prime and consists of only 1,8 and 0.
%t A061247 Select[Prime[Range[50000]],Length[Union[{0,1,8},IntegerDigits[ # ]]] 
               == 3&] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Jun 10 2007
%Y A061247 Cf. A061246.
%Y A061247 Sequence in context: A084987 A083185 A007597 this_sequence A068188 A032592 
               A142317
%Y A061247 Adjacent sequences: A061244 A061245 A061246 this_sequence A061248 A061249 
               A061250
%K A061247 nonn,base,less
%O A061247 1,1
%A A061247 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 23 2001
%E A061247 Corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Jun 10 2007