OFFSET
1,2
COMMENTS
The indices of these triangular numbers are 1, 39, 74, 100, 974, 1167, 1858, 3251, 3438, 3634, 5886, 6574, 7456, 9489, ...
The indices of the triangular psi values are 1, 63, 95, 135, 1280, 1664, 2015, 4607, 4095, 4095, 7424, 7424, 9152, 12543, ...
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..100
EXAMPLE
780 is in the sequence since 780 = 39*40/2 is triangular and psi(780) = 2016 = 63*64/2 is also triangular.
MATHEMATICA
psi[n_] := If[n<1, 0, n*Sum[MoebiusMu[d]^2/d, {d, Divisors @ n}]]; triQ[n_] := IntegerQ@ Sqrt[8n+1]; Select[Accumulate[Range[1000]], triQ[psi[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 08 2017
EXTENSIONS
a(18)-a(26) from Giovanni Resta, Sep 11 2017
STATUS
approved