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,1

Links

Table of n, a(n) for n=1..53.

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]]

Crossrefs

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

Sequence in context: A242445 A062385 A164803 * A114944 A075290 A281919

Adjacent sequences: A152566 A152567 A152568 * A152570 A152571 A152572

Keyword

nonn

Author

Zak Seidov, Dec 08 2008

Status

approved