%I A139812
%S A139812 5,7,11,13,17,23,29,31,37,41,53,59,67,71,97,101,103,107,127,131,149,151,
%T A139812 163,173,179,191,193,223,227,251,257,263,269,277,307,311,331,337,347,
%U A139812 349,367,373,379,397,409,419,421,431,433,457,461,479,487,491,499,541
%N A139812 Primes Prime[n] such that Prime[n]^2 - Prime[n + 2]*Prime[n - 2] <> 0.
%C A139812 These primes are at the next level higher beyond good and bad primes. 
               Bad primes come from modular forms and L-Series theory: http://en.wikipedia.org/
               wiki/Arithmetic_of_elliptic_curves:
%D A139812 Wikipedia, http://en.wikipedia.org/wiki/Arithmetic_of_elliptic_curves
%t A139812 Flatten[Table[If[Prime[n]^2 - Prime[n + 2]*Prime[n - 2] > 0,Prime[n], 
               {}], {n, 3, 100}]]
%Y A139812 Cf. A130903, A028388.
%Y A139812 Sequence in context: A120222 A054794 A104860 this_sequence A040146 A015914 
               A023201
%Y A139812 Adjacent sequences: A139809 A139810 A139811 this_sequence A139813 A139814 
               A139815
%K A139812 nonn
%O A139812 1,1
%A A139812 Roger Bagula and Gary W. Adamsom (rlbagulatftn(AT)yahoo.com), May 23 
               2008
%E A139812 Edited by N. J. A. Sloane (njas(AT)research.att.com), May 23 2008