OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lpfQ[{n_, c_}]:=Module[{f=FactorInteger[c]}, PrimeQ[f[[1, 1]]+f[[-1, 1]]] && PrimeQ[Total[Flatten[Table[#[[1]], #[[2]]]&/@f]]]]; Module[{cmps=Select[ Range[1000], CompositeQ], len}, len=Length[cmps]; Select[Thread[ {Range[ len], cmps}], lpfQ]][[All, 1]] (* Harvey P. Dale, Aug 16 2020 *)
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Juri-Stepan Gerasimov, Jan 08 2009
EXTENSIONS
Edited and extended by Charles R Greathouse IV, Mar 31 2010
STATUS
approved