Superprime Rib特殊的质数肋骨
农民约翰母牛总是产生最好的肋骨.
你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们.
农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上
的数字都组成一个质数,举例来说:
7 3 3 1
全部肋骨上的数字 7331 是质数;三根肋骨 733 是质数;二根肋骨 73 是质数;当然,最后一根肋骨
7 也是质数.
7331 被叫做长度 4 的特殊质数.
写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数.
数字 1 不被看作一个质数.
PROGRAM NAME: sprime
INPUT FORMAT
单独的一行包含 N.
SAMPLE INPUT (file sprime.in)
4
OUTPUT FORMAT
按顺序输出长度为 N 的特殊质数,每行一个.
SAMPLE OUTPUT (file sprime.out)
2333
2339
2393
2399
2939
3119
3137
3733
3739
3793
3797
5939
7193
7331
7333
7393
====================
================
{
ID:jie19952
PROG:sprime
LANG:PASCAL
}
uses
math;
var
n:longint;
procedure init;
begin
assign(input,'sprime.in');
assign(output,'sprime.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
function pd(t:longint):boolean;
var
i:longint;
begin
if t=1 then exit(false);
pd:=true;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then exit(false);
end;
procedure dfs(t:longint;now:longint);
var
i:longint;
now_n:longint;
begin
if t=n+1 then
begin
writeln(now);
exit;
end;
for i:=1 to 9 do
begin
now_n:=now*10+i;
if pd(now_n) then
begin
dfs(t+1,now_n);
end;
end;
end;
procedure main;
var
i:longint;
begin
readln(n);
for i:=2 to 9 do
if pd(i) then
dfs(2,i);
end;
begin
init;
main;
terminate;
end.