%I A138402
%S A138402 12,72,600,2352,14520,28392,83232,129960,279312,706440,922560,1872792,
%T A138402 2824080,3416952,4877472,7887672,12113880,13842120,20146632,25406640,
%U A138402 28392912,38943840,47451432,62734320,88519872,104050200,112540272
%N A138402 a(n) = (n-th prime)^4)-(n-th prime)^2.
%C A138402 Differences p^k-p^m such that k > m:
%C A138402 p^2-p is given in A036689
%C A138402 p^3-p is given in A127917
%C A138402 p^3-p^2 is given in A135177
%C A138402 p^4-p is given in A138401
%C A138402 p^4-p^3 is given in A138403
%C A138402 p^5-p is given in A138404
%C A138402 p^5-p^2 is given in A138405
%C A138402 p^5-p^3 is given in A138406
%C A138402 p^5-p^4 is given in A138407
%C A138402 p^6-p is given in A138408
%C A138402 p^6-p^2 is given in A138409
%C A138402 p^6-p^3 is given in A138410
%C A138402 p^6-p^4 is given in A138411
%C A138402 p^6-p^5 is given in A138412
%t A138402 a = {}; Do[p = Prime[n]; AppendTo[a, p^4 - p^2], {n, 1, 50}]; a
%Y A138402 Cf. A036689, A127917, A135177, A138401, A138403, A138404, A138405, A138406, 
               A138407, A138408, A138409, A138410, A138411, A138412.
%Y A138402 Sequence in context: A126480 A030235 A088166 this_sequence A108734 A143559 
               A120793
%Y A138402 Adjacent sequences: A138399 A138400 A138401 this_sequence A138403 A138404 
               A138405
%K A138402 nonn
%O A138402 1,1
%A A138402 Artur Jasinski (grafix(AT)csl.pl), Mar 19 2008