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

Author

Robert G. Wilson v, Jan 17 2011

Keywords

• easy
• nonn
• base

Comments

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

Crossrefs

Cf. A184593.

Programs

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