A129598 a(n) = n * A111089(n).
2, 4, 9, 8, 25, 18, 49, 16, 27, 50, 121, 36, 169, 98, 75, 32, 289, 54, 361, 100, 147, 242, 529, 72, 125, 338, 81, 196, 841, 150, 961, 64, 363, 578, 245, 108, 1369, 722, 507, 200, 1681, 294, 1849, 484, 225, 1058, 2209, 144, 343, 250, 867, 676, 2809, 162, 605
Offset: 1
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 1..10000
- G. Guninski, List of automatically found conjectural relations between this and other sequences
Crossrefs
Programs
-
Mathematica
Join[{2},Table[n*Last@(First/@FactorInteger[n]),{n,2,200}]] (* Vladimir Joseph Stephan Orlovsky, Apr 08 2011 *)
Formula
a(1) = 2; for n >= 2, a(n) = A253560(n).
Comments