OFFSET
1,1
COMMENTS
Zeroless means that the decimal expansion has no digit "0", so no element of A056709 is in the sequence.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
19 => 19*1*9+1+9 = 181 (is prime).
821 => 821*8*2*1+8+2+1 = 13147 (is prime).
2357 => 2357*2*3*5*7+2+3+5+7 = 494987 (is prime).
99995999 => 99995999*(9^7)*5+9*7+5 = 2391388816705223 (is prime).
MAPLE
isA267277 := proc(n)
local pdgs ;
if isprime(n) then
pdgs := A007954(n) ;
if pdgs <> 0 then
isprime(n*pdgs+A007953(n)) ;
else
false;
end if;
else
false;
end if;
end proc:
for n from 1 to 400 do
if isA267277(n) then
printf("%d, \n", n);
end if;
end do: # R. J. Mathar, Jan 16 2016
MATHEMATICA
Select[Prime@ Range@ 480, And[Last@ DigitCount@ # == 0, PrimeQ[Function[k, # Times @@ k + Total@ k]@ IntegerDigits@ #]] &] (* Michael De Vlieger, Jan 12 2016 *)
CROSSREFS
KEYWORD
nonn,base,less,easy
AUTHOR
Emre APARI, Jan 12 2016
STATUS
approved