This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A345072 #21 Sep 03 2024 15:10:17 %S A345072 113,115,124,148,166,184,214,223,238,256,265,283,289,298,328,337,355, %T A345072 364,418,463,487,496,526,535,553,568,577,586,616,625,634,643,658,694, %U A345072 757,784,814,823,829,847,856,874,889,928,946,964,997,1013,1015,1024,1048,1066 %N A345072 Numbers k such that the sum of cubes of digits of both k and k-2 are primes. %C A345072 Numbers k such that k and k-2 appear in A225534. %H A345072 Charles U. Lonappan, <a href="http://www.ijrar.org/papers/IJRAR24C2221.pdf">Numbers k such that the Sum of Cubes of Digits of both k and k-2 are Primes</a>, IJRAR - International Journal of Research and Analytical Reviews, Volume 11, Issue 3 (2024), pp. 652-655. %t A345072 q[n_] := PrimeQ[Plus @@ (IntegerDigits[n]^3)]; Select[Range[3, 1000], q[#-2] && q[#] &] (* _Amiram Eldar_, Jun 07 2021 *) %Y A345072 Cf. A225534. %K A345072 base,nonn %O A345072 1,1 %A A345072 _Charles U. Lonappan_, Jun 07 2021