login
Numbers n such that n^k is zeroless for k=0,...,5.
5

%I #11 Sep 07 2018 17:43:15

%S 1,2,3,5,6,13,14,17,23,24,26,31,58,62,66,68,72,76,88,96,137,168,188,

%T 233,244,262,264,296,337,376,382,383,483,488,511,514,518,519,582,628,

%U 719,736,786,816,822,928,938,971,978,1122,1178,1291,1331,1392,1413,1414,1663,1777

%N Numbers n such that n^k is zeroless for k=0,...,5.

%C A subsequence of A252484 (analog for k <= 4) which contains A253647 (analog including k = 6) as a subsequence. Primes in this sequence are listed in A253645.

%C Conjectured to be finite.

%H Giovanni Resta, <a href="/A253644/b253644.txt">Table of n, a(n) for n = 1..10000</a>

%p filter:= proc(x)

%p local k;

%p for k from 1 to 5 do

%p if has(convert(x^k,base,10),0) then return false fi

%p od:

%p true

%p end proc:

%p select(filter, [$1..10000]); # _Robert Israel_, Jan 07 2015

%t Select[Range[2000],Count[Flatten[IntegerDigits/@(#^Range[5])],0]==0&] (* _Harvey P. Dale_, Jun 10 2017 *)

%o (PARI) is_A253644(n,K=5)=!forstep(k=K,1,-1,vecmin(digits(n^k))||return)

%Y Cf. A052382, A104264, A124648, A124649, A253645, A253646, A253647.

%K nonn,base

%O 1,2

%A _M. F. Hasler_, Jan 07 2015