A163497 - OEIS

%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