%I A145474
%S A145474 13,61,73,109,181,193,241,313,349,373,409,433,541,601,613,661,733,829,
%T A145474 853,1033,1069,1129,1201,1213,1249,1453,1489,1609,1693,1741,1753,1801,
%U A145474 1861,2029,2053,2089,2113,2161,2221,2293,2389,2593,2749,2833,2953,3049
%N A145474 Primes p such that (13+p)/2 is prime.
%C A145474 All these primes are congruent to 1 mod 12
%t A145474 aa = {}; k = 13; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, Prime[n]]], 
               {n, 1, 500}];aa
%Y A145474 A092109, A145471-A145480.
%Y A145474 Sequence in context: A124864 A126400 A146764 this_sequence A002647 A118711 
               A028874
%Y A145474 Adjacent sequences: A145471 A145472 A145473 this_sequence A145475 A145476 
               A145477
%K A145474 nonn
%O A145474 1,1
%A A145474 Artur Jasinski (grafix(AT)csl.pl), Oct 11 2008