|
%I #13 Oct 10 2014 11:55:28
%S 739,811,6571,59779,65701,532261,538093,591301,597133,597781,4783699,
%T 4789621,4842109,4849399,5314411,5314501,5373469,5374279,5380831,
%U 43047541,43112341,43113061,43643773,43643863,47837071,47888821
%N Primes which can be expressed as sum of distinct powers of 9.
%C Primes whose base 9 representation contains only zeros and 1's.
%H Zak Seidov, <a href="/A077723/b077723.txt">Table of n, a(n) for n = 1..3000</a>
%t Select[Prime[Range[3000000]],Union[Most[Rest[DigitCount[#,9]]]]=={0}&] (* _Harvey P. Dale_, Jul 31 2013 *)
%o (PARI) lista(nn) = {forprime(p=2, nn, if (vecmax(digits(p, 9)) <= 1, print1(p, ", ")););} \\ _Michel Marcus_, Oct 10 2014
%Y Cf. A020449, A000695, A033046, A077717, A077718, A077719, A077720, A077721, A077722.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Nov 19 2002
%E More terms from _Sascha Kurz_, Jan 03 2003
|
