cp's OEIS Frontend

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|.

%I A163497 #8 May 10 2019 21:40:28
%S A163497 2,25,28,119,126,340,345,728,731,1329,1346,2188,2200,3374,3382,4911,
%T A163497 4916,6858,6861,9259,9269,12165,12182,15622,15627,19682,19685,24384,
%U A163497 24390,29790,29797,35935,35944,42869,42887,50652,50662,59300,59326
%N 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|.
%C A163497 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
%e A163497 a(1) = 2 since 2 lies between 1 (cube) and 3 (prime);
%e A163497 a(2) = 28 since 28 lies between 27 (cube) and 29 (prime).
%p A163497 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
%Y A163497 Cf. A154840.
%K A163497 nonn
%O A163497 1,1
%A A163497 _Gaurav Kumar_, Jul 29 2009
%E A163497 Edited by _Zak Seidov_, Aug 01 2009
%E A163497 Further edited by _N. J. A. Sloane_, Oct 31 2009