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 A118335 #16 Mar 05 2024 16:32:20 %S A118335 3,6,8,12,14,20,20,24,30,32,42,44,44,48,54,60,62,72,72,74,84,84,90, %T A118335 104,104,104,108,110,116,140,132,138,140,150,152,162,168,168,174,180, %U A118335 182,200,194,200,200,216,228,228,230,236,240,242,260,258,264,270,272,282 %N A118335 a(n)= smallest multiple of (prime(n+1)-prime(n)) which is >= prime(n+1), where prime(m) is the m-th prime. %C A118335 a(n) < a(n-1) for n: 31,43,54,83,98,100,116,122,140,142,155,163,169,173,178,..., . - _Robert G. Wilson v_, Apr 27 2006 %F A118335 a(n) - A118336(n) = 2 *(prime(n+1) - prime(n)). %F A118335 a(n) - A113709(n) = prime(n+1) - prime(n), for n>= 2. %t A118335 f[n_] := Block[{m = Prime[n + 1] - Prime[n]}, k = Mod[m, Prime[n + 1]]; While[k < Prime[n + 1], k += m]; k]; Array[f, 58] (* _Robert G. Wilson v_, Apr 27 2006 *) %Y A118335 Cf. A113709, A118336. %K A118335 nonn %O A118335 1,1 %A A118335 _Leroy Quet_, Apr 25 2006 %E A118335 More terms from _Robert G. Wilson v_, Apr 27 2006