Tag 364

Aufgabe:

Code:

pz:1$
tag:364$
Liste:[]$
for i:1 while pz Liste:delete(last(Liste),Liste)$
display(Liste)$
Ziffern:charlist(string(tag))$
Ziffern:map(parse_string,Ziffern)$
is(length(Liste)=prod(Ziffern[i],i,1,length(Ziffern)));

Probelauf:

lsg364

http://maxima-online.org/?inc=r498866649

Die komplette Lösung:

wx364

http://maxima-online.org/?inc=r-527135075

Der Quellcode dazu:

for x:10 thru 366 do block(
pz:1,
tag:x,
Liste:[],
for i:1 while pz<tag do block(pz:next_prime(pz),Liste:append(Liste,[pz])),
Liste:delete(last(Liste),Liste),
Ziffern:charlist(string(tag)),
Ziffern:map(parse_string,Ziffern),
w:is(length(Liste)=prod(Ziffern[i],i,1,length(Ziffern))),
if w then disp([tag,w])
)$