Anonymous user
Show the (decimal) value of a number of 1s appended with a 3, then squared: Difference between revisions
Show the (decimal) value of a number of 1s appended with a 3, then squared (view source)
Revision as of 21:48, 20 December 2021
, 2 years ago→{{header|Julia}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 494:
6 1111113 1234572098769
7 11111113 123456832098769
</pre>=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>{#, #^2} & /@
Table[FromDigits[PadLeft[{3}, n, 1]], {n, 9}] // TableForm</lang>
{{out}}<pre>
3 9
13 169
113 12769
1113 1238769
11113 123498769
111113 12346098769
1111113 1234572098769
11111113 123456832098769
111111113 12345679432098769
</pre>
| |||