A152569 Terms in A005229 occurring exactly 3 times.

30, 45, 54, 66, 78, 93, 97, 113, 118, 135, 142, 143, 163, 171, 195, 205, 211, 235, 247, 278, 297, 310, 339, 355, 379, 401, 429, 432, 455, 490, 510, 519, 524, 548, 555, 578, 618, 627, 640, 646, 654, 658, 668, 734, 746, 759, 790, 797, 834, 846, 852, 875, 890

Offset: 1

Author

Zak Seidov, Dec 08 2008

Keywords

• nonn

Crossrefs

A005229 a(1)=a(2)=1; for n>2, a(n)=a(a(n-2))+a(n-a(n-2)).

Programs

Mathematica

aa[1] = aa[2] = 1; aa[n_] := aa[n] = aa[aa[n - 2]] + aa[n - aa[n - 2]]; ta2000 = Table[aa[n], {n, 2000}]; re3 = Reap[Do[If[Count[ta2000, k] == 3, Sow[k]], {k, 1379}]][[2, 1]]