OFFSET
1,2
COMMENTS
The indices of these triangular numbers are: 1, 4, 16, 35, 63, 125, 135, 194, 256, 272, 303, 341, 364, 455, 513, 629, 671, 776, 804, 815, 903, 999, 1215, 1254, 1295, 1313, 1358, 1359, 1459, 1469, 1538, 1664, 1924, 1952, 1962, ... and their phi values are the squares of: 1, 2, 8, 12, 24, 60, 48, 96, 128, 96, 120, 180, 144, 144, 288, 288, 240, 288, 264, 288, 336, 360, 432, 600, 432, 720, 720, 480, 648, 672, 864, 576, 720, 720, 1080, ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
136=16*17/2 is triangular, phi(136)=64=8^2 is a square, thus 136 is in the sequence.
MATHEMATICA
Select[Accumulate[Range[1000]], IntegerQ[Sqrt[EulerPhi[#]]]&]
PROG
(PARI) isok(n) = ispolygonal(n, 3) && issquare(eulerphi(n)); \\ Michel Marcus, May 25 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 25 2017
STATUS
approved