OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..93
EXAMPLE
For n=4, a(4) = 373 can be partitioned into primes in four ways: 3|7|3, 3|73, 37|3 and 373.
MAPLE
f:= proc(n) option remember; local i, t;
if isprime(n) then t:= 1 else t:= 0 fi;
for i from 1 to ilog10(n) do
if isprime(n mod 10^i) then t:= t + procname(floor(n/10^i)) fi
od;
t
end proc:
f(0):= 0:
V:= Vector(38):
for n from 2 to 10^7 do
v:= f(n);
if v > 0 and v <= 38 and V[v] = 0 then V[v]:= n fi
od:
convert(V, list);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot and Robert Israel, Jan 14 2021
STATUS
approved