%I A076651
%S A076651 2,4,8,12,21,29,42,50,72,76,97,106,127,135,140,161,169,190,199,220,246,
%T A076651 296,305,326,369,403,424,436,453,466,572,581,585,606,623,721,729,742,
%U A076651 750,772,814,869,903,912,920,933,1009,1026,1047,1052,1137,1145,1179
%N A076651 Floor( Sqrt( p * (p+2) / 2)) where p is the lesser of the twin primes.
%t A076651 a = Select[ Range[300], PrimeQ[ Prime[ # ] + 2] & ]; Floor[ Sqrt[ Prime[a]*Prime[a 
               + 1]/2 ]]
%Y A076651 Sequence in context: A100684 A131770 A163489 this_sequence A081410 A027677 
               A103787
%Y A076651 Adjacent sequences: A076648 A076649 A076650 this_sequence A076652 A076653 
               A076654
%K A076651 nonn
%O A076651 1,1
%A A076651 Cino Hilliard (hillcino368(AT)gmail.com) and rgwv, Oct 20, 2002