OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..800
MAPLE
f:= proc(n) local s, c, i, Cands;
for s from 2 to n do
if s mod 3 = 0 then next fi;
Cands:= sort(map(t -> 1 + 10^(n-1) + add(10^t[i], i=1..s-2), combinat:-choose([$1..n-2], s-2)));
for c in Cands do if isprime(c) then return c fi od
od;
0
end proc:
map(f, [$1..20]); # Robert Israel, Aug 03 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Nov 30 2009
EXTENSIONS
Extended by Ray Chandler, Dec 03 2009
STATUS
approved