|
|
A178555
|
|
Primes with exactly six 6's.
|
|
5
|
|
|
16666669, 26666663, 26666669, 46666661, 46666663, 56666663, 60666667, 63666661, 64666661, 64666663, 64666669, 66066661, 66166663, 66466661, 66466667, 66466669, 66606667, 66616663, 66626663, 66646667, 66656663
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
f:= proc(m) local R, L, s, k, t, x;
R:= NULL;
for k from 9^(m-6) to 2*9^(m-6)-1 do
t:= Vector(subs([8=9, 7=8, 6=7], convert(k, base, 9)[1..m-6]));
for s in combinat:-choose([$2..m], m-7) do
L:= Vector(m, 6);
L[[1, op(s)]]:= t;
if L[-1] = 0 then next fi;
x:= add(L[i]*10^(i-1), i=1..m);
if isprime(x) then R:= R, x fi;
od od:
op(sort([R]));
end proc:
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|