OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MAPLE
isA136151 := proc(n) if isprime(n-1) then if nops(numtheory[factorset](n)) =2 then true; else false ; fi ; else false ; fi ; end: for i from 1 to 200 do n := ithprime(i)+1 ; if isA136151( n) then printf("%d, ", n) ; fi ; od: # R. J. Mathar, Feb 01 2008
MATHEMATICA
Select[Range[800], PrimeNu[#]==2&&PrimeQ[#-1]&] (* Harvey P. Dale, Jun 22 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Dec 16 2007
EXTENSIONS
Edited by R. J. Mathar, Feb 01 2008
STATUS
approved