%I A082508
%S A082508 1,2,2,4,2,4,2,4,2,4,2,4,2,4,2,4,8,4,2,4,2,4,4,2,2,4,2,2,4,2,4,2,4,2,2,
%T A082508 4,2,4,2,4,2,4,8,4,8,4,8,2,2,4,8,4,2,4,8,4,8,4,2,2,2,4,2,2,4,2,4,8,8,8,
%U A082508 4,8,4,8,4,2,2,4,2,4,2,4,4,2,4,4,8,8,4,4,8,4,2,2,2,2,4,2,4,8,2,8,8,4,2
%N A082508 Differences between consecutive primes that are powers of 2 in order 
               of their appearance. Differences not powers of 2 are deleted from 
               A001223.
%t A082508 Do[s=Log[2, Prime[n+1]-Prime[n]]; If[IntegerQ[s], Print[Prime[n+1]]], 
               {n, 1, 1000}]
%Y A082508 Cf. A001223.
%Y A082508 Sequence in context: A045841 A040003 A106469 this_sequence A163824 A075526 
               A001223
%Y A082508 Adjacent sequences: A082505 A082506 A082507 this_sequence A082509 A082510 
               A082511
%K A082508 nonn
%O A082508 1,2
%A A082508 Labos E. (labos(AT)ana.sote.hu), Apr 28 2003