OFFSET
1,2
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..500
PROG
(PARI)
a(n)={
my(recurse(k, r, p)=if(k==1, if(r<=9 && isprime(p+r), p+r, 0),
my(t=0, c=min(r-1, 9));
while(!t&&c>=0, t=self()(k-1, r-c, (p+c)*10); c--); t)) ;
my(t=0, c=min(n, 9)); if(n%3, while(!t&&c>0, t=recurse(n-1, n-c, c*10); c--)); t
} \\ Andrew Howroyd, Dec 10 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Aug 15 2002
EXTENSIONS
a(7) onwards from Andrew Howroyd, Dec 10 2024
STATUS
approved