{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 149 "is149:=proc(n::posi
nt)\n  local r;\n  r:=n;\n  while r<>0 do\n    if not member(irem(r,10
,'r'),\{1,4,9\}) then\n      RETURN(false)\n    fi\n  od;\n  true\nend
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 230 "tricol:=proc(N)\n  lo
cal k,res,q,r,n,i;\n  k:=0;\n  for q from 0 by 10 while k<N do\n    fo
r r in [1, 2, 3, 7, 8, 9] do\n      if is149((q+r)^2) then\n        k:
=k+1;\n        res[k]:=q+r\n      fi\n    od\n  od;\n  [seq(res[i],i=1
..N)]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "start:=time(
):\ntricol(10);\ntime()-start;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"
\"\"\"\"#\"\"$\"\"(\"#7\"#@\"#Q\"$2\"\"$7#\"&)[J" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"&R#=!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
39 "S2:=\{1,4,9,11,14,19,41,44,49,91,94,99\}:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 28 "seq(msolve(r^2=d,100),d=S2);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6:<#/%\"rG\"#@<#/F%\"#H<#/F%\"#r<#/F%\"#z<#/F%\"#7<#/F%
\"#))<#/F%\"#Q<#/F%\"#i<#/F%\"#V<#/F%\"\"(<#/F%\"#$*<#/F%\"#d<#/F%\"#*
*<#/F%\"#^<#/F%\"\"\"<#/F%\"#\\<#/F%\"#_<#/F%\"\"#<#/F%\"#[<#/F%\"#)*<
#/F%\"#`<#/F%\"#Z<#/F%\"#(*<#/F%\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 33 "L2:=sort(map2(op,2,map(op,[%])));" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#L2G7:\"\"\"\"\"#\"\"$\"\"(\"#7\"#@\"#H\"#Q\"#V\"#Z
\"#[\"#\\\"#^\"#_\"#`\"#d\"#i\"#r\"#z\"#))\"#$*\"#(*\"#)*\"#**" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 195 "lazy_is149:=proc(n::posint)
\n  local r;\n  global S2;\n  r:=n;\n  while r<>0 do\n    if not membe
r(irem(r,100,'r'),\{1,4,9,11,14,19,41,44,49,91,94,99\}) then\n      RE
TURN(false)\n    fi\n  od;\n  true\nend:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 238 "lazy_tricol:=proc(N)\n  local k,res,q,r,n,i;\n  glob
al L2;\n  k:=0;\n  for q from 0 by 100 while k<N do\n    for r in L2 d
o\n      if lazy_is149((q+r)^2) then\n        k:=k+1;\n        res[k]:
=q+r\n      fi\n    od\n  od;\n  [seq(res[i],i=1..N)]\nend:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "start:=time():\nlazy_tricol(
10);\ntime()-start;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"\"\"\"#\"
\"$\"\"(\"#7\"#@\"#Q\"#(*\"$-\"\"$2\"" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#$\"#\\!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "map(x->x^2
,lazy_tricol(10));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"\"\"\"%\"
\"*\"#\\\"$W\"\"$T%\"%W9\"%4%*\"&//\"\"&\\9\"" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 219 "is149_2:=proc(n::posint)\n  local r,s;\n  r:=n;
\n  while r<>0 do\n    s:=irem(r,100,'r');\n    if not (member(s,\{11,
14,19,41,44,49,91,94,99\})  or (member(s,\{1,4,9\}) and r=0)) then\n  \+
    RETURN(false)\n    fi\n  od;\n  true\nend:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 232 "tricol_2:=proc(N)\n  local k,res,q,r,n,i;\n  \+
global L2;\n  k:=0;\n  for q from 0 by 100 while k<N do\n    for r in \+
L2 do\n      if is149_2((q+r)^2) then\n        k:=k+1;\n        res[k]
:=q+r;      fi\n    od\n  od;\n  [seq(res[i],i=1..N)]\nend:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "start:=time():\ntricol_2(10)
;\ntime()-start;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,\"\"\"\"\"#\"\"$
\"\"(\"#7\"#@\"#Q\"$2\"\"$7#\"&)[J" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
$\"%As!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1
2 2" 0 }{VIEWOPTS 1 1 0 1 1 1803 }