STATUS
editing
approved
editing
approved
Harvey P. Dale, <a href="/A235700/b235700_1.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved
NestList[#+Mod[#, 5]&, 1, 80] (* Harvey P. Dale, Oct 20 2024 *)
approved
editing
editing
approved
LinearRecurrence[{0, 182, 0, -1}, {30, 91, 5490, 16561}, 30] (* Harvey P. Dale, Oct 20 2024 *)
approved
editing
editing
approved
LinearRecurrence[{3, -3, 1}, {1, 0, -5}, 50] (* Harvey P. Dale, Oct 20 2024 *)
approved
editing
editing
approved
Join[{0}, Table[Times@@(Length/@Split[FactorInteger[n][[;; , 2]]]), {n, 2, 100}]] (* Harvey P. Dale, Oct 20 2024 *)
approved
editing