cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A200050 a(2) = 1, then (p-1)*(p-4)/2, with p = prime(n), n > 2.

This page as a plain text file.
%I A200050 #23 Sep 08 2022 08:46:00
%S A200050 1,2,9,35,54,104,135,209,350,405,594,740,819,989,1274,1595,1710,2079,
%T A200050 2345,2484,2925,3239,3740,4464,4850,5049,5459,5670,6104,7749,8255,
%U A200050 9044,9315,10730,11025,11934,12879,13529,14534,15575,15930,17765,18144,18914,19305
%N A200050 a(2) = 1, then (p-1)*(p-4)/2, with p = prime(n), n > 2.
%C A200050 Record values in A192599. The index sequence of this one is 1, 2, 3, 6, 7, 9, 11, 13, 17, 18, 21, 23, 25, 29, 31, 34, 36, 40, 42, 45, 47, 50, 52, 56, 58, 61.
%H A200050 Arkadiusz Wesolowski, <a href="/A200050/b200050.txt">Table of n, a(n) for n = 2..10000</a>
%F A200050 a(2) = 1, a(n) = A006093(n)*A172367(n-2)/2.
%e A200050 A192599(13) = 209 since A192599(17) = 350 is the next record value.
%t A200050 Table[p = Prime[n + 1]; (p - 1)*Abs[p - 4]/2, {n, 45}]
%t A200050 Join[{1},((#-1)(#-4))/2&/@Prime[Range[3,50]]] (* _Harvey P. Dale_, Aug 04 2020 *)
%o A200050 (Magma) [(p-1)*Abs(p-4)/2: p in [NthPrime(n+1): n in [1..45]]]
%o A200050 (PARI) vector(45, n, p=prime(n+1); (p-1)*abs(p-4)/2)
%Y A200050 Cf. A000096, A014107, A192599.
%K A200050 nonn
%O A200050 2,2
%A A200050 _Arkadiusz Wesolowski_, Apr 16 2012