Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A350193
Indices that give distinct values of A350090 in the order in which they appear.
1
0, 1, 5, 7, 22, 33, 124, 187, 757, 852, 876, 1149, 1541, 5951, 6767, 8454, 10067, 15555, 20272, 29751, 51721, 59662, 89055, 90088, 92489, 161673, 207737, 217341, 225622, 361054, 452639, 530990, 560684, 669999, 733454, 1000067, 1866828, 2090121, 2464677, 3148962
OFFSET
1,3
MATHEMATICA
With[{s = Table[Count[Range[0, n - 1], _?(IntegerQ@ Sqrt[4 # + 1] &[(3 n (n + 1) + 1) - (3 # (# + 1) + 1)] &)], {n, 0, 2^10}]}, Map[-1 + FirstPosition[s, #][[1]] &, DeleteDuplicates@ s]] (* Michael De Vlieger, Dec 19 2021, after Amiram Eldar at A350090 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Dec 19 2021
EXTENSIONS
a(1) = 0 inserted by and more terms from Jinyuan Wang, Dec 19 2021
STATUS
approved