OFFSET
1,1
COMMENTS
Row n ends when a composite number is found.
EXAMPLE
for k=1..7 , a(1, k) = {31, 331, 3331, 33331, 333331, 3333331, 33333331} are in the sequence.
MAPLE
with(numtheory): for n from 1 to 100 do:a0:=n:id:=0:c:=0:for k from 1 to 20
while (id=0) do:d:=length(a0):a1:=3*10^d+a0:if type(a1, prime)=true then a0:=a1:printf(`%d,
`, a0):c:=c+1:else id:=1:fi:od:if c=0 then printf(`%d, `, 0):else fi:od:
CROSSREFS
KEYWORD
nonn,base,tabf
AUTHOR
Michel Lagneau, Feb 11 2011
STATUS
approved