OFFSET
1,1
COMMENTS
Primes whose base 7 representation contains only zeros and 1's.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
pos := 0:for i from 1 to 4000 do b := convert(i, base, 2); s := sum(b[j]*7^(j-1), j=1..nops(b)): if(isprime(s)) then pos := pos+1:a[pos] := s:fi: od:seq(a[j], j=1..pos);
MATHEMATICA
Select[Prime[Range[10^6]], Max[IntegerDigits[#, 7]]<=1 &] (* Vincenzo Librandi, Sep 07 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 19 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 03 2003
STATUS
approved