A087045 -id:A087045 - cp's OEIS frontend

A086809 Indices k where A057176(k) = 2.

2, 5, 8, 34, 65, 144, 296, 401, 490, 520, 2165, 3590, 4640, 4828, 6828, 8704, 17675, 21164, 52883, 84762, 162069, 358838, 1463826, 1593474, 1668393, 2086706, 4364420, 20471838, 31960444

Offset: 1

Farideh Firoozbakht, Aug 05 2003

By definition of the sequence, A087045(n) + 1 for every n > 0 is in the sequence.

No more terms < 3870000. - David Wasserman, Mar 31 2005

Cf. A057176, A087045.

a[m_] := a[m] = Sum[ a[j], {j, 0, Mod[ a[m - 1], m]}]; vv = {}; Do[ a[n] = If[ n == 0, 1, b]; v = a[n + 1]; b = v; If[ v == 2, AppendTo[ vv, n + 1]; Print[n + 1]], {n, 0, 165000}]

Extended by Robert G. Wilson v, Aug 07 2003
More terms from David Wasserman, Mar 31 2005
a(27)-a(29) from Michael S. Branicky, Mar 23 2024

A086838 Indices k where A057176(k) = 4.

Original entry on oeis.org

3, 6, 9, 13, 35, 66, 115, 145, 297, 402, 491, 521, 1217, 2166, 3397, 3591, 4641, 4829, 6810, 6829, 7978, 8705, 17676, 21165, 50722, 52884, 84763, 121344, 121482, 162070, 358839, 560596, 1463827, 1593475, 1668394, 2086707, 2164032, 2517791, 4364421, 4970661, 19572673, 20471839, 31904004, 31960445, 51887007

Offset: 1

Farideh Firoozbakht, Aug 08 2003

nonn

By definition of the sequence A087045(n)+2 and A086809(n)+1 for every n > 0 are in the sequence. There are no further terms up to 200000

No more terms < 3870000. - David Wasserman, Mar 31 2005

Cf. A057176, A087045, A086809.

a[m_] := Sum[a[j], {j, 0, Mod[a[m-1], m]}]; vv={}; Do[ a[n]=If[n==0, 1, b]; v=a[n+1]; b=v; If[v==4, vv=Insert[vv, n+1, -1]; Print[vv]], {n, 0, 200000-1}]

More terms from David Wasserman, Mar 31 2005

a(39)-a(45) from Michael S. Branicky, Mar 23 2024

cp's OEIS Frontend

A086809 Indices k where A057176(k) = 2.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Extensions