%I A005098
%S A005098 1,3,4,7,9,10,13,15,18,22,24,25,27,28,34,37,39,43,45,48,49,57,58,60,64,
%T A005098 67,69,70,73,78,79,84,87,88,93,97,99,100,102,105,108,112,114,115,127,
%U A005098 130,135,139,142,144,148,150,153,154,160,163,165,168,169,175,177,183
%N A005098 Numbers n such that 4n+1 is prime.
%C A005098 Sum of i-th and j-th triangular numbers, where i=A096029(n), j=A096030(n);
               i.e. a(n)=A000217(A096029(n)) + A000217(A096030(n)). - Lekraj Beedassy 
               (blekraj(AT)yahoo.com), Jun 16 2004
%H A005098 T. D. Noe, <a href="b005098.txt">Table of n, a(n) for n=1..1000</a>
%H A005098 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               WilsonsTheorem.html">Wilson's Theorem</a>
%p A005098 a := []; for n from 1 to 500 do if isprime(4*n+1) then a := [op(a), n]; 
               fi; od: A005098 := n->a[n];
%t A005098 lst={};Do[p=4*n+1;If[PrimeQ[p], AppendTo[lst, n]], {n, 0, 10^3}];lst 
               [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 10 2008]
%Y A005098 See A002144 for the actual primes.
%Y A005098 Sequence in context: A066928 A032726 A029739 this_sequence A002977 A024799 
               A039579
%Y A005098 Adjacent sequences: A005095 A005096 A005097 this_sequence A005099 A005100 
               A005101
%K A005098 nonn,nice,easy
%O A005098 1,2
%A A005098 N. J. A. Sloane (njas(AT)research.att.com).
%E A005098 More terms from Ray Chandler (rayjchandler(AT)sbcglobal.net), Jun 26 
               2004