{VERSION 2 3 "DEC ALPHA UNIX" "2.3" }
{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#$\"&d$=!\"$" }}}{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%\"\"\"<#/F%\"#**<#/F%\"#\\<#/F%\"#_<
#/F%\"#)*<#/F%\"\"#<#/F%\"#[<#/F%\"#`<#/F%\"#(*<#/F%\"#Z<#/F%\"\"$<#/F
%\"#r<#/F%\"#z<#/F%\"#@<#/F%\"#H<#/F%\"#7<#/F%\"#))<#/F%\"#Q<#/F%\"#i<
#/F%\"#$*<#/F%\"#d<#/F%\"#V<#/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  gl
obal 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#$\"%(=(
!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0
" 0 }{VIEWOPTS 1 1 0 1 1 1803 }