|
%I #18 Jun 08 2017 16:33:45
%S 16,22,34,37,42,43,47,48,52,59,63,67,69,73,74,79,84,86,87,89,93,94,99,
%T 101,102,103,106,107,109,112,115,116,117,118,123,124,126,127,128,131,
%U 134,135,138,141,143,145,149,152,159,163,164,169,171,172,174,182,184
%N Numbers n not divisible by 10 such that n^3 contains at least one 0.
%C n^3 may contain one or more zeros. - _Harvey P. Dale_, Oct 03 2016
%H Harvey P. Dale, <a href="/A242214/b242214.txt">Table of n, a(n) for n = 1..2500</a>
%e 16 is not divisible by 10 and 16^3 = 4096, which contains a 0. Thus, 16 is a member of this sequence.
%t Select[Range[200],Mod[#,10]!=0&&DigitCount[#^3,10,0]>0&] (* _Harvey P. Dale_, Oct 03 2016 *)
%o (Python)
%o {print(n) for n in range(10**3) if n%10 != 0 and str(n**3).find("0") > 0}
%o (PARI) isok(n) = (n % 10) && (vecmin(digits(n^3)) == 0); \\ _Michel Marcus_, May 10 2014
%Y Cf. A134843.
%K nonn,base,less
%O 1,1
%A _Derek Orr_, May 07 2014
%E Definition clarified by _Harvey P. Dale_, Oct 03 2016
|
