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.
%I A383241 #11 May 13 2025 23:11:55 %S A383241 5,29,69,307,285,883,645,1747,4001,1797,6881,6067,3525,8083,14945, %T A383241 18761,7197,24521,19027,10365,34601,26227,44321,69063,39187,20805, %U A383241 44083,23325,49267,200913,66547,107681,38085,207109,44997,142241,153545,108883,173345 %N A383241 a(n) = p(n)*p(n+1)*(p(n+1) - p(n)) - 1, where p(n) = prime(n). %e A383241 a(n) = A383242(n) - 2. %t A383241 z = 60; p[n_] := Prime[n]; %t A383241 f[n_] := p[n]*p[n + 1]*(p[n + 1] - p[n]) %t A383241 Table[f[n] - 1, {n, 1, z}] (* A383241 *) %t A383241 Table[f[n] + 1, {n, 1, z}] (* A383242 *) %Y A383241 Cf. A000042, A383242, A383243, A383244. %K A383241 nonn %O A383241 1,1 %A A383241 _Clark Kimberling_, May 07 2025