OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
11 is in the sequence because A061762(11) = 3 is prime.
MAPLE
f:= proc(n) local L;
L:= convert(n, base, 10);
convert(L, `+`)+convert(L, `*`)
end proc:
select(p -> isprime(f(p)), [seq(ithprime(i), i=1..1000)]); # Robert Israel, May 07 2021
MATHEMATICA
f[n_] := Module[{in = IntegerDigits[n]}, Times @@ in + Plus @@ in]; Select[Prime[Range[300]], PrimeQ[f[#]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vicente Izquierdo Gomez, Aug 13 2012
STATUS
approved