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