A070868 -id:A070868

Search: a070868 -id:a070868

Displaying 1-1 of 1 result found.

page 1

A070881

Least k such that A070868(k) = n.

+20
1

1, 3, 6, 8, 13, 15, 19, 26, 28, 32, 34, 47, 49, 53, 57, 59, 73, 80, 82, 88, 92, 104, 109, 123, 125, 127, 135, 139, 143, 147, 168, 193, 182, 184, 188, 194, 196, 204, 208, 214, 257, 250, 259, 261, 263, 269, 277, 275, 287, 309, 305, 313, 315, 352, 366, 375, 362

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

MATHEMATICA

a[1] = a[2] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n + 1 - 2*a[n - 1]]; b = Table[0, {100}]; Do[c = a[n]; If[c < 101 && b[[c]] == 0, b[[c]] = n], {n, 1, 10^3}]; b

CROSSREFS

Cf. A070868.

KEYWORD

easy,nonn

AUTHOR

Robert G. Wilson v, May 20 2002

STATUS

approved

page 1

Search completed in 0.006 seconds