A283482 -id:A283482 - cp's OEIS frontend

A283471 Numbers n > 2 such that A004001(A004001(n-1)) = A004001(n-A004001(n-1)).

3, 4, 6, 7, 8, 10, 13, 14, 15, 16, 18, 28, 29, 30, 31, 32, 34, 59, 60, 61, 62, 63, 64, 66, 122, 123, 124, 125, 126, 127, 128, 130, 249, 250, 251, 252, 253, 254, 255, 256, 258, 504, 505, 506, 507, 508, 509, 510, 511, 512, 514, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1026, 2038, 2039, 2040, 2041, 2042, 2043, 2044, 2045

Offset: 1

Antti Karttunen, Mar 18 2017

nonn

Equally, numbers n > 2 for which A004001(A004001(n-1)) = A004001(A080677(n-1)).

Antti Karttunen, Table of n, a(n) for n = 1..185

Positions of zeros in A283468 and A283470.
Cf. A004001, A080677, A283473.
Subsequence of A283482.

a[n_] := a[n] = If[n <= 2, 1, a[a[n - 1]] + a[n - a[n - 1]]]; Select[Range[3, 2^11], Function[n, a[#] == a[n - #] &@ a[n - 1]]] (* Michael De Vlieger, Mar 18 2017, after Robert G. Wilson v at A004001 *)

A283481 Positions of odd terms in A004001.

Original entry on oeis.org

1, 2, 5, 9, 11, 12, 17, 19, 22, 25, 26, 27, 33, 35, 37, 38, 40, 43, 46, 47, 48, 50, 51, 55, 56, 57, 58, 65, 67, 69, 72, 74, 77, 79, 80, 82, 83, 87, 89, 90, 92, 93, 97, 100, 101, 102, 107, 110, 111, 112, 117, 118, 119, 120, 121, 129, 131, 133, 135, 136, 138, 140, 143, 145, 148, 150, 151, 153, 154, 158, 160, 163, 165, 166, 168, 169

Offset: 1

Antti Karttunen, Mar 18 2017

nonn

Antti Karttunen, Table of n, a(n) for n = 1..8121

Cf. A283482 (complement), A283480 (a left inverse).
Positions of ones in A095901.
Cf. A004001.

a[n_] := a[n] = If[n <= 2, 1, a[a[n - 1]] + a[n - a[n - 1]]]; Select[Range@ 169, OddQ@ a[#] &] (* Michael De Vlieger, Mar 18 2017, after Robert G. Wilson v at A004001 *)

Other identities. For all n >= 1:

A283480(a(n)) = n.

cp's OEIS Frontend

A283471 Numbers n > 2 such that A004001(A004001(n-1)) = A004001(n-A004001(n-1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica