%I #22 May 08 2022 23:03:16
%S 2,3,5,11,13,19,37,41,43,53,73,83,89,101,107,109,149,173,179,181,211,
%T 293,307,331,347,409,421,587,601,613,617,619,659,661,677,683,691,809,
%U 811,821,853,857,859,877,1171,1193,1229,1237,1321,1381,1427,1429,1433,1451,1453,1459,1609,1613,1619,1621,1627,1637,1709,1741
%N Prime numbers with a binary representation in which each digit is repeated at most twice.
%F A000040 INTERSECT A063037.
%e 13 belongs to the list as its binary representation is 1101, in which the first group of 1 consists of 2 repetitions, the first group of 0 consists of only one item and the second group of 1 consists still of only one item; 73 belongs to the list as its binary representation is 1001001, in which 1 is never repeated and 0 is repeated two times.
%p isA228445 := proc(n)
%p isprime(n) and isA063037(n) ;
%p end proc:
%p for n from 1 to 2000 do
%p if isA228445(n) then
%p printf("%d,",n) ;
%p end if;
%p end do: # _R. J. Mathar_, Dec 18 2013
%t Select[Prime[Range[300]],Max[Length/@Split[IntegerDigits[#,2]]]<3&] (* _Harvey P. Dale_, May 24 2015 *)
%Y Cf. A000040, A063037.
%K nonn,base
%O 1,1
%A _Pierandrea Formusa_, Nov 06 2013
|