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,1

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

Links

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

Example

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

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

Crossrefs

Cf. A154840.

Sequence in context: A054283 A041723 A067443 * A264118 A054292 A248546

Adjacent sequences: A163494 A163495 A163496 * A163498 A163499 A163500

Keyword

nonn

Author

Gaurav Kumar, Jul 29 2009

Extensions

Edited by Zak Seidov, Aug 01 2009

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

Status

approved