|
%I #46 Feb 11 2023 07:45:22
%S 0,2,3,4,6,12,14,16,20,22,23,26,34,35,36,39,42,46,54,64,74,83,168
%N Numbers k such that 2^k does not contain the digit 2 (probably finite).
%C Is 168 the last term?
%C First row of A136291. - _R. J. Mathar_ Apr 29 2008
%C Equivalently, indices of zeros in A065710. - _M. F. Hasler_, Feb 10 2023
%F The last term is A094776(2), by definition. - _M. F. Hasler_, Feb 10 2023
%e Here is 2^168, conjecturally the largest power of 2 that does not contain a 2:
%e 374144419156711147060143317175368453031918731001856. - _N. J. A. Sloane_, Feb 10 2023
%p isA034293 := proc(n) RETURN(not 2 in convert(2^n,base,10)) ; end: for n from 0 to 100000 do if isA034293(n) then print(n) ; fi ; od: # _R. J. Mathar_, Oct 04 2007
%t Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[2^# ], 2] &]] (* _Shyam Sunder Gupta_, Sep 01 2007 *)(* adapted by _Vincenzo Librandi_, May 07 2015 *)
%t Select[Range[0, 10^4], DigitCount[2^#][[2]] == 0 &] (* _Michael De Vlieger_, Apr 29 2016 *)
%o (Magma) [n: n in [0..1000] | not 2 in Intseq(2^n) ]; // _Vincenzo Librandi_, May 07 2015
%o (PARI) is(n)=setsearch(Set(digits(2^n)),2)==0 \\ _Charles R Greathouse IV_, May 10 2016
%o (PARI) is_A034293(n)=!foreach(digits(2^n),d,d==2&&return) \\ _M. F. Hasler_, Feb 10 2023
%o (Python)
%o def is_A034293(n): return'2'not in str(2**n)
%o [n for n in range(199) if is_A034293(n)] # _M. F. Hasler_, Feb 10 2023
%Y Cf. A007377.
%Y See also similar sequences listed in A035064.
%Y Cf. A065710, A094776.
%K base,nonn
%O 1,2
%A _Erich Friedman_
%E Edited by _N. J. A. Sloane_, Oct 03 2007
%E Removed keyword "fini" since it is only a conjecture that this sequence contains only finitely many terms. - _Altug Alkan_, May 07 2016
|
