Pell numbers: Difference between revisions
m
→{{header|Raku}}: typos
(Pell numbers en FreeBASIC) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: typos) |
||
Line 570:
say "\nFirst $upto Newman-Shank-Williams numbers:\n" ~ (^$upto).map({ $pell[2 × $_, 2 × $_+1].sum });
say "\nFirst $upto near
map -> \p { printf "(%d, %d, %d)\n", |($_, $_+1 given $pell[^(2 × p + 1)].sum), $pell[2 × p + 1] }, 1..$upto;</lang>
{{out}}
Line 629:
1 7 41 239 1393 8119 47321 275807 1607521 9369319 54608393 318281039 1855077841 10812186007 63018038201 367296043199 2140758220993 12477253282759 72722761475561 423859315570607
First 20 near
(3, 4, 5)
(20, 21, 29)
| |||