OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = 10 is a term because psi(10) = 4, psi(4) = 2, and psi(10 + 4) = psi(14) = 6 = 4 + 2.
MAPLE
filter:= proc(k) uses numtheory; local s;
s:= lambda(k);
lambda(k+s) = s + lambda(s)
end proc:
select(filter, [$1..10000]);
MATHEMATICA
Select[Range[8000], CarmichaelLambda[ #+CarmichaelLambda[#]] == CarmichaelLambda[#]+CarmichaelLambda[CarmichaelLambda[#]] &] (* Stefano Spezia, Oct 07 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Oct 06 2024
STATUS
approved