OFFSET
1,1
COMMENTS
The only solutions to psi(n) = psi(n+1) = psi(n+2) below 10^8 are 14, 44, 62, 956.
In this sequence, smallest terms k such that k and k + 1 are both product of m + 1 distinct primes are 14, 1334, 84134, 3571905, 424152105 for 1 <= m <= 5. - Altug Alkan, Aug 17 2017
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..5000
EXAMPLE
4 is in the sequence since psi(4) = psi(5) = 6.
MATHEMATICA
psi[n_] := If[n < 1, 0, n Sum[MoebiusMu[d]^2 / d, {d, Divisors @ n}]];
Select[Range[12000], psi[#] == psi[# + 1] &]
SequencePosition[Table[If[n<1, 0, n Sum[MoebiusMu[d]^2/d, {d, Divisors[n]}]], {n, 13000}], {x_, x_}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 22 2018 *)
PROG
(PARI) a001615(n) = n*sumdivmult(n, d, issquarefree(d)/d);
isok(n) = a001615(n)==a001615(n+1) \\ Altug Alkan, Aug 17 2017, after Charles R Greathouse IV at A001615
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Aug 16 2017
STATUS
approved