A077723 Primes which can be expressed as sum of distinct powers of 9.

739, 811, 6571, 59779, 65701, 532261, 538093, 591301, 597133, 597781, 4783699, 4789621, 4842109, 4849399, 5314411, 5314501, 5373469, 5374279, 5380831, 43047541, 43112341, 43113061, 43643773, 43643863, 47837071, 47888821

Offset: 1

Author

Amarnath Murthy, Nov 19 2002

Keywords

• nonn

Comments

Primes whose base 9 representation contains only zeros and 1's.

Links

• Zak Seidov, Table of n, a(n) for n = 1..3000

Crossrefs

Cf. A020449, A000695, A033046, A077717, A077718, A077719, A077720, A077721, A077722.

Programs

Mathematica

Select[Prime[Range[3000000]],Union[Most[Rest[DigitCount[#,9]]]]=={0}&] (* Harvey P. Dale, Jul 31 2013 *)

PARI

lista(nn) = {forprime(p=2, nn, if (vecmax(digits(p, 9)) <= 1, print1(p, ", ")););} \\ Michel Marcus, Oct 10 2014

Extensions

More terms from Sascha Kurz, Jan 03 2003