|
%I #12 Feb 22 2022 08:52:45
%S 73,521,577,4673,32833,33289,33353,36929,37441,262153,262217,262657,
%T 295433,299017,299521,2097673,2101249,2101313,2134529,2359369,2359873,
%U 2363393,2363401,2392073,16777289,16777729,16810049,16810561,16814089
%N Primes which can be expressed as sums of distinct powers of 8.
%C Primes whose base 8 representations contain only 0's and 1's.
%C Intersection of A000040 and A033045. - _Michel Marcus_, Sep 14 2013
%H Charles R Greathouse IV, <a href="/A077722/b077722.txt">Table of n, a(n) for n = 1..10000</a>
%o (PARI) isok(n) = {digs = digits(n, 8); for (i = 1, #digs, if (digs[i] > 1, return (0));); return (1);}
%o lista(nn) = {forprime (p=1, nn, if (isok(p), print1(p, ", ");););} \\ _Michel Marcus_, Sep 14 2013
%o (PARI) forstep(n=7,999,2,t=fromdigits(binary(n),8); if(isprime(t), print1(t", "))) \\ _Charles R Greathouse IV_, Jun 08 2015
%Y Cf. A020449, A000695, A033045, A077717, A077718, A077719, A077720, A077721, A077723.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Nov 19 2002
%E More terms from Francois Jooste (phukraut(AT)hotmail.com), Dec 23 2002
|
