OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
for n from 1 to 150 do p:=ithprime(n): m:=mul(j, j=convert(p-1, base, 10)): if isprime(m+1) then printf("%d, ", p-1) fi od: # C. Ronaldo
MATHEMATICA
Select[Prime[Range[200]]-1, PrimeQ[Times@@IntegerDigits[#]+1]&] (* Harvey P. Dale, Apr 09 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 10 2003
EXTENSIONS
Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004
STATUS
approved