%I #7 May 07 2020 16:03:07
%S 1,10,11,12,14,15,17,18,31,32,34,35,37,51,52,54,57,58,71,74,75,78,91,
%T 92,95,97,98,100,101,103,104,106,107,109,120,121,123,124,126,129,140,
%U 141,143,146,147,160,163,164,167,169,180,181,184,186,187,189,210,212,213
%N Numbers n =d1+10d2+100d3+...+10^p dp such that "prime(1)*d1+prime(2)*d2+...+prime(p)*dp" is prime.
%C Numbers n such that A263042(n) is prime. - _Robert Israel_, May 07 2020
%H Robert Israel, <a href="/A126802/b126802.txt">Table of n, a(n) for n = 1..10000</a>
%F For example 387 gives 7*2+8*3+3*5=53, a prime.
%p filter:= proc(n) local L,i;
%p L:= convert(n,base,10);
%p isprime(add(L[i]*P[i],i=1..nops(L)));
%p end proc:
%p select(filter, [$1..100]); # _Robert Israel_, May 07 2020
%Y Cf A263042. Includes A011557.
%K nonn,base
%O 1,2
%A _Yalcin Aktar_, Feb 21 2007
|