Search: id:A002383
Results 1-1 of 1 results found.
%I A002383 M2641 N1051
%S A002383 3,7,13,31,43,73,157,211,241,307,421,463,601,757,1123,1483,1723,2551,
%T A002383 2971,3307,3541,3907,4423,4831,5113,5701,6007,6163,6481,8011,8191,9901,
%U A002383 10303,11131,12211,12433,13807,14281,17293,19183,20023,20593,21757
%N A002383 Primes of form n^2 + n + 1.
%C A002383 Also primes p such that 4p-3 is square. - Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it),
Sep 07 2005
%C A002383 Also these primes are sums of 1 and some consecutive even numbers starting
at 2; e.g. 31=1+2+4+6+8+10. - Labos E. (labos(AT)ana.sote.hu), Apr
15 2003
%C A002383 Also primes of form n^2 - n + 1 (Prime central polygonal numbers, A002061).
- Zak Seidov (zakseidov(AT)yahoo.com), Jan 26 2006
%C A002383 also: Primes of the form : sum of Triangular numbers as: TriangularNumber(n)+TriangularNumber(n+2).
7=1+6, 13=3+10, 31=10+21, 43=15+28, 73=28+45, ... [From Vladimir
Orlovsky (4vladimir(AT)gmail.com), Apr 03 2009]
%C A002383 It is not known whether there are infinitely many primes of the form
n^2+n+1. H.E.Rose, A Course in Number Theory, Clarendon Press,1988,
p. 217. [From Daniel Tisdale (daniel6874(AT)gmail.com), Jun 27 2009]
%D A002383 D. H. Lehmer, Guide to Tables in the Theory of Numbers. Bulletin No.
105, National Research Council, Washington, DC, 1941, p. 46.
%D A002383 L. Poletti, Le serie dei numeri primi appartenente alle due forme quadratiche
(A) n^2+n+1 e (B) n^2+n-1 ..., Atti della Reale Accademia Nazionale
dei Lincei, Memorie della Classe di Scienze Fisiche, Matematiche
e Naturali, s. 6. 3 (1929), 193-218.
%D A002383 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973
(includes this sequence).
%D A002383 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences,
Academic Press, 1995 (includes this sequence).
%H A002383 Zak Seidov, Table of n, a(n) for n=1..10751
%F A002383 a(n) = A002384(n)^2 + A002384(n) + 1 = (A088503(n-1)^2 + 3)/4 = (A110284(n)
+ 3)/4. - Chandler
%t A002383 s=1; Do[s=s+2*n; If[PrimeQ[s], Print[{s, 2*n}]], {n, 1, 100}]
%t A002383 tr[a_]:=Module[{x},s=0;For[i=1,i