cp's OEIS Frontend

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.

Showing 1-2 of 2 results.

A382118 Prime indices k such that prime(k) and prime(k) + 9 are anagrams.

Original entry on oeis.org

19, 73, 79, 163, 197, 241, 269, 281, 431, 439, 619, 647, 691, 739, 751, 761, 823, 877, 953, 1019, 1051, 1109, 1223, 1259, 1291, 1307, 1423, 1471, 1723, 1741, 1747, 1847, 1949, 1979, 2213, 2371, 2473, 2503, 2647, 2789, 2803, 2819, 2879, 2903, 2909, 3019, 3163, 3361
Offset: 1

Views

Author

Vincenzo Librandi, Apr 15 2025

Keywords

Comments

Primes in A379208.

Examples

			The prime 19 is a term of the sequence because prime(19)= 67 and 67 + 9 = 76 are anagrams.
		

Crossrefs

Programs

  • Magma
    [n: n in [0..10000] | IsPrime(n) and Sort(Intseq(NthPrime(n))) eq Sort(Intseq(NthPrime(n) + 9))];
  • Mathematica
    Select[Prime[Range[500]],Sort[IntegerDigits[Prime[#]]]==Sort[IntegerDigits[Prime[#]+9]]&]

A379738 Numbers k such that prime(k) and prime(k) + 9*k are anagrams.

Original entry on oeis.org

8, 55, 60, 61, 228, 440, 455, 550, 555, 568, 578, 1508, 1774, 1778, 1795, 1796, 1808, 2218, 2222, 2308, 2411, 2519, 2520, 2834, 2843, 2885, 3304, 3386, 3440, 4000, 4281, 4390, 4906, 4994, 4999, 5090, 5110, 9777, 9788, 9966, 10239, 11780, 11882, 11930, 12330, 13873, 13887, 14259
Offset: 1

Views

Author

Jean-Marc Rebert, Dec 31 2024

Keywords

Examples

			prime(8) = 19 and prime(8) + 9 * 8 = 91 are anagrams.
prime(55) = 257 and prime(55) + 9 * 55 = 752 are anagrams.
prime(60) = 281 and prime(60) + 9 * 60 = 821 are anagrams.
prime(61) = 283 and prime(61) + 9 * 61 = 832 are anagrams.
prime(228) = 1439 and prime(228) + 9 * 228 = 3491 are anagrams.
		

Crossrefs

Cf. A379208.

Programs

  • Magma
    [n: n in [1..2*10^4] | Sort(Intseq(NthPrime(n))) eq Sort(Intseq(NthPrime(n) + 9*n))]; // Vincenzo Librandi, Jan 01 2025
  • Mathematica
    Select[Range[10000], Sort[IntegerDigits[Prime[#]]] == Sort[IntegerDigits[Prime[#]+9#]] &] (* Stefano Spezia, Jan 01 2025 *)
Showing 1-2 of 2 results.