A141392 a(n) = RMS( A141391(1) through A141391(n) ).
1, 5, 5, 7, 14, 14, 70, 70, 66, 66, 462, 462, 616, 616, 600, 600, 750, 750, 730, 730, 876, 876, 996, 996, 1162, 1162, 1582, 1554, 1554, 1638, 1638, 1872, 1872, 4368, 4368, 4419, 4359, 4359, 13209, 13090, 13090, 12950, 12950, 12802, 12802, 16954, 16954
Offset: 1
Keywords
Examples
a(4) = 7 because first 4 terms of A141391 are 1,7,5,11 and sqrt(mean(1^2, 7^2, 5^2, 11^2)) = 7.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..200
Programs
-
Mathematica
lim=46;a141391={1};Do[i=1;Until[!MemberQ[a141391,i]&&IntegerQ[RootMeanSquare[Append[a141391,i]]],i++];AppendTo[a141391,i],{n,lim}];a[n_]:=RootMeanSquare[a141391[[1;;n]]];Array[a,lim] (* James C. McMahon, Jul 24 2025 *)
Comments