%I #9 Sep 08 2022 08:45:31
%S 0,1,2,3,4,6,7,8,9,22,33,34,38,46,49,75,106
%N Numbers k such that the decimal expansion of 3^k contains no 4.
%C I conjecture that 106 is the last term.
%t Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 4] &]
%o (Magma) [n: n in [0..1000] | not 4 in Intseq(3^n)]; // _Vincenzo Librandi_, May 06 2015
%Y Cf. similar sequences listed in A131613.
%Y Cf. A007377.
%K base,fini,nonn
%O 1,3
%A _Shyam Sunder Gupta_, Sep 01 2007
%E Initial 0 added and Mathematica code adapted by _Vincenzo Librandi_, May 06 2015
|