OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Transpose[Select[Table[{n, 8n+7}, {n, 500}], PrimeQ[Last[#]]&&IntegerQ[(7*(256^First[ #]-16^First[#])+First[#]^2)/Times@@#]&]][[2]] (* Harvey P. Dale, Sep 13 2014 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Reikku Kulon, Jul 07 2009
STATUS
approved