My Mathematica / Wolfram Language page

• Mathematica Documentation
• Wolfram Blog
• Wolfram Demonstration Project
• Wolfram Alpha (Examples)
• Wolfram Library Archive
• Wolfram Knowledge Base
• Screencast & Video Gallery
• Wolfram Research YouTube channel
• WolframAlpha YouTube Channel
• The Wolfram Functions Site
• comp.soft-sys.math.mathematica
• Mathematica StackExchange
• Mathematica StackExchange: Where can I find examples of good Mathematica programming practice?
• My profile page at Wolfram Community

My Mathematica programs/notebooks

• caesar_cipher.nb: Some experiments wich Ceasar ciphers
• collisions_in_wordlists2.nb: Hash collisions in wordlists (cryptography related)
• de_applications.nb: Some small/interesting applications of Differential Equations
• elliptic_curves_hakank.nb: Some experiments with (discrete) Elliptic curves (cryptography related)
• euler.m: Implementation of Project Euler problem 1-50 (including testing)
• no_time_to_try.nb: No time to try puzzle (Katie Steckles)
• oneRM_with_Sinclair_coeffs_for_body_weight.nb: Age adjustments for lifting weights: Comparisons and 1RM, as well as Sinclair coefficients for body weight
• wordle_solve.nb: Wordle Solver (Notebook)
• test_statistics1.nb: Cryptography related test statistics

Some other programs

• Happy numbers
  

  happy1[n_] := Total[Map[#^2 &, IntegerDigits[n]]];
  happyList[n_] := Most@NestWhileList[happy1, n, Unequal, All];
  happyQ[n_] := Last[happyList[n]] == 1;
  Select[Range[500], happyQ]
  
  happyPrimeQ[n_] := PrimeQ[n] && happyQ[n];
  Select[Range[500], happyQ]