%I A154494
%S A154494 1,6,17,84,247,300,341,720,767,834,913,960,989,1590,1741,2772,2945,3102,
%T A154494 3451,3540,3563,4020,4159,4812,5431,5700,6131,6192,6245,8586,9373,10056,
%U A154494 10163,10314,10543,10944,11033,11844,12055,13566,14015,15048,15155
%N A154494 a(n+1)-+a(n)=prime, a(n+1)*a(n)=Average of twin prime pairs, a(0)=1,a(1)=6.
%C A154494 Sum and difference of any of two consecutive numbers in current sequence 
               are prime numbers and multiplication and any two consecutive numbers 
               is Average of twin prime pairs : 6-1=5;6+1=7;6*1=6, 17-6=11;17+6=23;
               17*6=102, ...
%t A154494 a=1;b=6;lst={a,b};Do[If[PrimeQ[n-b]&&PrimeQ[n+b]&&PrimeQ[n*b-1]&&PrimeQ[n*b+1],
               AppendTo[lst,n];a=b;b=n],{n,b+1,9!}];lst
%Y A154494 Cf. A154484, A154485, A154486, A154487, A154488, A154493
%Y A154494 Sequence in context: A006758 A123189 A047156 this_sequence A130278 A024080 
               A099436
%Y A154494 Adjacent sequences: A154491 A154492 A154493 this_sequence A154495 A154496 
               A154497
%K A154494 nonn
%O A154494 1,2
%A A154494 Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 10 2009