A184594 Where A184593, the difference between 5n and A101306(n), becomes a new record in either direction.

1, 2, 5, 6, 20, 21, 35, 62, 64, 65, 67, 97, 159, 198, 267, 444, 449, 499, 761, 764, 800, 801, 802, 803, 804, 810, 886, 1413, 1435, 1613, 1614, 1615, 1634, 2566, 2568, 4162, 4653, 6115, 6118, 6120, 6121, 6124, 6136, 7063, 7070, 7071, 7075, 7076, 7118, 7119, 7424

Offset

1,2

Comments

Use the first Mathematica program in A184593 to produce the difference.

Links

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

Mathematica

k = 1; p = 2; lst = {}; mn = mx = s = 0; While[p < 10^5, s = s + Mod[p, 10]; d = s - 5 k; If[ Positive@ d, If[d > mx, AppendTo[lst, k]; mx = d], If[d < mn, AppendTo[lst, k]; mn = d]]; k++; p = NextPrime@ p]; lst

Crossrefs

Cf. A184593.

Sequence in context: A274911 A282536 A248719 * A341756 A014454 A136324

Adjacent sequences: A184591 A184592 A184593 * A184595 A184596 A184597

Keyword

easy,nonn,base

Author

Robert G. Wilson v, Jan 17 2011

Status

approved