|
%I #15 Sep 08 2022 08:45:31
%S 0,1,2,4,8,9,10,11,12,15,20,22,29,34,35,54,59
%N Numbers k such that decimal expansion of 3^k contains no 2.
%C I conjecture that 59 is the last term.
%t Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 2] &]
%o (Magma) [n: n in [0..1000] | not 2 in Intseq(3^n)]; // _Vincenzo Librandi_, May 06 2015
%o (PARI) isok(n) = ! vecsearch(Set(digits(3^n)), 2); \\ _Michel Marcus_, Feb 09 2018
%Y Cf. similar sequences listed in A131613.
%Y Cf. A007377.
%K base,fini,nonn,more
%O 1,3
%A _Shyam Sunder Gupta_, Sep 01 2007
%E Initial 0 added and Mathematica code adapted by _Vincenzo Librandi_, May 06 2015
|
