OFFSET
1,1
COMMENTS
Problem: are there infinitely many such numbers?
Note that all these numbers are composite, because p - lambda(p) = 1 and p^2 - lambda(p^2) = p prime.
If x - lambda(x) = n > 1, then x <= n^2.
Conjecture: if x - lambda(x) = 2*m > 0, then x <= 4*m.
Noncototients among these numbers are 172, 232, 244, 274, 298, 326, 362, ...
PROG
(PARI) lista(nn) = {v = vecsort(vector(nn^2, n, n - lcm(znstar(n)[2])), , 8); for (n=1, nn, if (! vecsearch(v, n), print1(n, ", ")); ); } \\ Michel Marcus, Oct 03 2016
(Perl) use ntheory ":all"; sub A { my $l=shift; my %C; undef $C{$_-carmichael_lambda($_)} for 1..$l*$l; my @R = grep { !exists $C{$_} } 1..$l; @R; } say for A(500); # Dana Jacobsen, Apr 27 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Oct 03 2016
EXTENSIONS
More terms from Michel Marcus, Oct 03 2016
STATUS
approved