%I #9 Jun 02 2022 11:32:56
%S 5,11,21,31,51,111,141,201,251,301,351,411,501,521,531,1021,1041,1131,
%T 1151,1241,1341,1541,2001,2051,2231,2351,2441,2511,2551,3021,3431,
%U 3451,3501,3551,4031,4421,4441,4511,4531,5021,5201,5411,5531,5551,10011
%N Greater of twin primes, written in base 6.
%C All but the first value are of the form 6n+1; hence in base 6 end each ends with the digit 1.
%F a(n) = A007092(A006512(n)) = A007092(A166479(n)+2).
%t FromDigits[IntegerDigits[#,6]]&/@Select[Partition[Prime[Range[300]],2,1],#[[2]]-#[[1]] == 2&][[All,2]] (* _Harvey P. Dale_, Jun 02 2022 *)
%Y Cf. A006512, A007092, A166479.
%K base,easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Oct 14 2009
%E Extended by _R. J. Mathar_, Oct 16 2009
%E Comment amended by _Harvey P. Dale_, Jun 02 2022
|