skip to main content
paste
bin
.ca
type · paste · share
⌘
K
Family
The bin family
pastebin.ca
hub
Share text and code with expiry and privacy controls.
imagebin.ca
Upload and share images with direct links.
filebin.ca
Drop a file and get a shareable link.
notebin.ca
Write Markdown notes with durable links.
turl.ca
Short, reputation-checked links.
attn.ca
Notifications and alerts for your services.
voicebin.ca
Record and share short voice clips.
dnsbin.ca
Inspect DNS and debug records.
Docs
Sign in
?
All pastes
#976394
Raw
Copy code
Copy link
Edit
Mine
public
c
v1 · immutable
#976394
·
published
2008-04-08 03:30 UTC
Lines
Syntax
Wrap
Stripe
off
dark
light
Mono
Size
13px
Tab
2
4
8
Theme
Follow system
Always dark
Always light
rendered paste body
x
=
0
; While[Length[Divisors[Sum[k, {k,
1
, x}]]]
<
501
, x
=
x
+
1
]; Sum[k, {k,
1
, x}]