%I #18 Sep 08 2022 08:46:02

%S 0,4,18,46,86,138,210,292,396,512,630,790,968,1150,1380,1566,1820,

%T 2082,2370,2670,3010,3382,3720,4122,4540,4950,5416,5900,6372,6884,

%U 7446,8030,8600,9202,9782,10476,11164,11886,12576,13326,14148,14920,15686,16554,17412

%N prime(n^2) - prime(n).

%H Vincenzo Librandi, <a href="/A213926/b213926.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = A000040(n^2) - A000040(n).

%p A213926 := proc(n) ithprime(n^2)-ithprime(n) ; end proc: seq(A213926(n), n=1..40) ;

%t Table[Prime[n^2] - Prime[n], {n, 40}]

%o (Magma) [NthPrime(n^2)-NthPrime(n): n in [1..40]];

%o (PARI) a(n)=prime(n^2)-prime(n) \\ _Charles R Greathouse IV_, Mar 21 2014

%Y Cf. A000040, A001223, A031131, A031165 - A031172, A072473, A092504.

%K nonn,easy

%O 1,2

%A _Vincenzo Librandi_, Mar 06 2013