OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
isA014574 := proc(n) RETURN( isprime(n-1) and isprime(n+1)) ; end: A007953 := proc(n) add(i, i=convert(n, base, 10) ); end: isA145387 := proc(n) RETURN(isA014574(n) and isprime( A007953(n)+1) and isprime( A007953(n)-1) ) ; end: for n from 1 to 3400 do if isA145387(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Nov 18 2008
MATHEMATICA
Select[Range[3200], AllTrue[Flatten[{#+{1, -1}, Total[IntegerDigits[#]]+{1, -1}}], PrimeQ]&] (* Harvey P. Dale, Dec 29 2021 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Oct 10 2008
EXTENSIONS
198 inserted by R. J. Mathar, Nov 18 2008
STATUS
approved