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 A168152 #21 Nov 16 2022 11:50:00
%S A168152 1,2,6,10,20,28,42,48,60,80,96,120,138,148,164,188,218,222,264,282,
%T A168152 294,322,348,372,412,446,460,480,490,504,582,608,636,658,710,726,762,
%U A168152 804,824,858,884,906,962,978,1004,1018,1086,1186,1206,1218,1238,1260,1282
%N A168152 a(n) = prime(prime(n)) - prime(n).
%H A168152 G. C. Greubel, <a href="/A168152/b168152.txt">Table of n, a(n) for n = 1..1000</a>
%F A168152 a(n) = A006450(n) - A000040(n).
%F A168152 a(n) ~ n (log n)^2. -_Charles R Greathouse IV_, May 25 2011
%p A168152 A168152 := proc(n) local p; p := ithprime(n) ; ithprime(p)-p ; end proc: seq(A168152(n),n=1..120) ; # _R. J. Mathar_, Nov 19 2009
%t A168152 Table[Prime[Prime[n]] - Prime[n], {n, 1, 100}] (* _G. C. Greubel_, Jul 14 2016 *)
%t A168152 Prime[#]-#&/@Prime[Range[100]] (* _Harvey P. Dale_, Nov 16 2022 *)
%o A168152 (Magma) [NthPrime(NthPrime(n))-NthPrime(n): n in [1..60]]; // _Vincenzo Librandi_, Jul 15 2016
%o A168152 (PARI) a(n) = my(p=prime(n)); prime(p) - p; \\ _Michel Marcus_, Mar 08 2022
%Y A168152 Cf. A000040, A006450.
%K A168152 nonn
%O A168152 1,2
%A A168152 _Juri-Stepan Gerasimov_, Nov 19 2009
%E A168152 a(10) corrected by _R. J. Mathar_, Nov 19 2009