OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
For n = 3, (p, q, r) = (11, 13, 17), q = 13
Decimal 13 = Binary 1101
a(3) = Number of ones in 1101 = 3
MATHEMATICA
DigitCount[#, 2, 1]&/@Transpose[Select[Partition[Prime[Range[1000]], 3, 1], Last[#]-First[#]==6&]][[2]] (* Harvey P. Dale, Dec 03 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Steven Lubars (lubars(AT)gmail.com), Oct 03 2009
EXTENSIONS
More terms from Harvey P. Dale, Dec 03 2014
STATUS
approved