OFFSET
1,1
EXAMPLE
a(22) = 11 because A187234(22) = 123, and 1*2 + 1*3 + 2*3 = 11 is prime.
MAPLE
with(numtheory):T:=array(1..10):k:=1:for n from 1 to 1000 do:l:=length(n):n0:=n:for
m from 1 to l do:q:=n0:u:=irem(q, 10):v:=iquo(q, 10):n0:=v :T[m]:=u:od: s:=0:
for i from 1 to l-1 do: for j from i+1 to l do: s:=s+T[i]*T[j]:od: od:if type(s, prime)
= true then printf(`%d, `, s):else fi:od:
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Michel Lagneau, Mar 11 2011
STATUS
approved