OFFSET
1,2
COMMENTS
All terms except 1 are even.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 14 is a term because 14 + A037276(14) = 14 + 27 = 41 is prime.
MAPLE
dcat:= proc(L) local i, x;
x:= L[-1];
for i from nops(L)-1 to 1 by -1 do
x:= 10^(1+ilog10(x))*L[i]+x
od;
x
end proc:
A037276:= proc(n) local F;
F:= sort(ifactors(n)[2], (a, b) -> a[1] < b[1]);
dcat(map(t -> t[1]$t[2], F));
end proc:
A037276(1):= 1:
select(t -> isprime(t + A037276(t)), [1, seq(i, i=3..1000)]);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot and Robert Israel, Jan 14 2021
STATUS
approved