A163497 Numbers n with following property: let c = nearest cube to n that is different from n and let p = nearest prime to n that is different from n. Then |n-c| = |n-p|.

2, 25, 28, 119, 126, 340, 345, 728, 731, 1329, 1346, 2188, 2200, 3374, 3382, 4911, 4916, 6858, 6861, 9259, 9269, 12165, 12182, 15622, 15627, 19682, 19685, 24384, 24390, 29790, 29797, 35935, 35944, 42869, 42887, 50652, 50662, 59300, 59326

Offset: 1

Author

Gaurav Kumar, Jul 29 2009

Keywords

• nonn

Comments

With the exception of 2 those k where A051699(k) = A074989(k) (same distance to nearest prime and to nearest cube). - R. J. Mathar, Aug 08 2009

Examples

			a(1) = 2 since 2 lies between 1 (cube) and 3 (prime);
a(2) = 28 since 28 lies between 27 (cube) and 29 (prime).
		

Crossrefs

Cf. A154840.

Programs

Maple

A163497 := proc(n) option remember ; local a; if n = 1 then 2; else for a from procname(n-1)+1 do if A051699(a) = A074989(a) then return a; end if; end do ; end if; end proc: # R. J. Mathar, Nov 01 2009

Extensions

Edited by Zak Seidov, Aug 01 2009

Further edited by N. J. A. Sloane, Oct 31 2009