OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..712 (terms below 2*10^10)
Daeyeoul Kim, Umit Sarp, and Sebahattin Ikikardes, Certain combinatoric convolution sums arising from Bernoulli and Euler Polynomials, Miskolc Mathematical Notes, No. 20, Vol. 1 (2019): pp. 311-330.
MATHEMATICA
f[p_, e_] := p - 1; u[1] = 1; u[n_] := Times @@ (f @@@ FactorInteger[n]); s = {}; u1 = 1; Do[u2 = u[n]; If[u1 == u2, AppendTo[s, n-1]]; u1 = u2, {n, 2, 10^5}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 08 2020
STATUS
approved