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,2

Links

Giovanni Resta, Table of n, a(n) for n = 1..200

Example

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.

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 *)

Crossrefs

Cf. A141391, A141393, A141394, A140480.

Sequence in context: A158299 A093307 A264388 * A088047 A109257 A088048

Adjacent sequences: A141389 A141390 A141391 * A141393 A141394 A141395

Keyword

nonn

Author

Andrew Weimholt, Jun 29 2008

Status

approved