A077722 Primes which can be expressed as sums of distinct powers of 8.
73, 521, 577, 4673, 32833, 33289, 33353, 36929, 37441, 262153, 262217, 262657, 295433, 299017, 299521, 2097673, 2101249, 2101313, 2134529, 2359369, 2359873, 2363393, 2363401, 2392073, 16777289, 16777729, 16810049, 16810561, 16814089
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
PARI
isok(n) = {digs = digits(n, 8); for (i = 1, #digs, if (digs[i] > 1, return (0));); return (1);} lista(nn) = {forprime (p=1, nn, if (isok(p), print1(p, ", ");););} \\ Michel Marcus, Sep 14 2013
-
PARI
forstep(n=7,999,2,t=fromdigits(binary(n),8); if(isprime(t), print1(t", "))) \\ Charles R Greathouse IV, Jun 08 2015
Extensions
More terms from Francois Jooste (phukraut(AT)hotmail.com), Dec 23 2002
Comments