A152079 -id:A152079 - cp's OEIS frontend

A267765 Numbers whose base-5 representation is a square when read in base 10.

0, 1, 4, 25, 36, 49, 89, 100, 121, 139, 249, 329, 351, 625, 676, 729, 900, 961, 1225, 1551, 1654, 2146, 2225, 2289, 2500, 2601, 3025, 3289, 3475, 3521, 3814, 4324, 4529, 4801, 5086, 5149, 6225, 6726, 6829, 7374, 8225, 8464, 8775, 9454, 9601, 13926, 15625, 15876, 16129, 16900, 17161

Offset: 1

M. F. Hasler, Jan 20 2016

Trivially includes powers of 25, since 25^k = 100..00_5 = 10^(2k) when read in base 10. Moreover, for any a(n) in the sequence, 25*a(n) is also in the sequence. One could call "primitive" the terms not of this form, these would be 1, 4, 36 = 121_5, 49 = 144_5, 89 = 324_5, ... These primitive terms include the subsequence 25^k + 2*5^k + 1 = (5^k+1)^2, k > 0, which yields A033934 when written in base 5.

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Cf. A267763 - A267769 for bases 3 through 9. The base-2 analog is A000302 = powers of 4.

For a "prime" analog see also A235265, A235266, A152079, A235461 - A235482, A065720 ⊂ A036952, A065721 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924.

Select[Range[0, 17200], IntegerQ@ Sqrt@ FromDigits@ IntegerDigits[#, 5] &] (* Michael De Vlieger, Jan 24 2016 *)

is(n,b=5,c=10)=issquare(subst(Pol(digits(n,b)),x,c))

A267765_list = [int(d,5) for d in (str(i**2) for i in range(10**6)) if max(d) < '5'] # Chai Wah Wu, Mar 12 2016

A267766 Numbers whose base-6 representation is a square when read in base 10.

Original entry on oeis.org

0, 1, 4, 17, 36, 49, 64, 89, 124, 144, 169, 232, 305, 388, 409, 449, 544, 577, 612, 665, 953, 1105, 1296, 1369, 1444, 1529, 1764, 1849, 1936, 2033, 2304, 2825, 3097, 3204, 3280, 3473, 4345, 4464, 4588, 4841, 5104, 5184, 5329, 5633, 6084, 6241, 7081, 7649, 8044, 8352, 8449, 9160, 9593

Offset: 1

M. F. Hasler, Jan 20 2016

Trivially includes powers of 36, since 36^k = 100..00_6 = 10^(2k) when read in base 10. Moreover, for any a(n) in the sequence, 36*a(n) is also in the sequence. One could call "primitive" the terms not of this form. These primitive terms include the subsequence 36^k + 2*6^k + 1 = (6^k+1)^2, k > 0, which yields A033934 when written in base 6.

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Cf. A267763 - A267769 for bases 3 through 9. The base-2 analog is A000302 = powers of 4.

For a "prime" analog see also A235265, A235266, A152079, A235461 - A235482, A065720 ⊂ A036952, A065721 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924.

[n: n in [0..10^4] | IsSquare(Seqint(Intseq(n,6)))]; // Bruno Berselli, Jan 20 2016

Select[Range[0, 10^4], IntegerQ@ Sqrt@ FromDigits@ IntegerDigits[#, 6] &] (* Michael De Vlieger, Jan 24 2016 *)

is(n,b=6,c=10)=issquare(subst(Pol(digits(n,b)),x,c))

A267766_list = [int(d,6) for d in (str(i**2) for i in range(10**6)) if max(d) < '6'] # Chai Wah Wu, Mar 12 2016

A231476 Primes whose base-3 representation is also the base-6 representation of a prime.

Original entry on oeis.org

2, 7, 13, 19, 31, 151, 163, 211, 223, 229, 241, 271, 349, 367, 439, 601, 607, 613, 631, 643, 673, 727, 733, 859, 907, 937, 997, 1021, 1033, 1039, 1051, 1093, 1117, 1123, 1129, 1153, 1321, 1327, 1399, 1423, 1429, 1609, 1627, 1657, 1669, 1741, 1747, 1759, 1777, 1789, 1831, 1867, 1933, 1951, 1993, 1999

Offset: 1

M. F. Hasler, Jan 12 2014

This sequence is part of a two-dimensional array of sequences, given in the LINK, based on this same idea for any two different bases b, c > 1. Sequence A235265 and A235266 are the most elementary ones in this list. Sequences A089971, A089981 and A090707 through A090721, and sequences A065720 - A065727, follow the same idea with one base equal to 10.

Subsequence of A045375 ⊂ A045331.

			7 = 21_3 and 21_6 = 13 are both prime.

Harvey P. Dale, Table of n, a(n) for n = 1..1000
M. F. Hasler, Primes whose base c expansion is also the base b expansion of a prime

Cf. A235469, A235265, A235266, A235473, A152079, A235461 - A235482, A065720 ⊂ A036952, A065721 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924. See the LINK for further cross-references.

Select[Prime[Range[400]],PrimeQ[FromDigits[ IntegerDigits[#, 3], 6]] &] (* Harvey P. Dale, Sep 29 2016 *)

is(p,b=6,c=3)=isprime(vector(#d=digits(p,c),i,b^(#d-i))*d~)&&isprime(p) \\ Note: This code is only valid for b>c.

A235476 Primes whose base-2 representation also is the base-6 representation of a prime.

Original entry on oeis.org

3, 5, 7, 11, 17, 19, 29, 41, 53, 67, 101, 127, 193, 263, 281, 337, 353, 431, 461, 479, 487, 499, 523, 593, 599, 631, 743, 757, 773, 821, 823, 829, 857, 883, 887, 941, 1013, 1021, 1093, 1117, 1259, 1279, 1303, 1367, 1373, 1429, 1439, 1459, 1471, 1483, 1493, 1511, 1583, 1619, 1699, 1759, 1831, 1847, 1879, 1931, 1951, 1987

Offset: 1

M. F. Hasler, Jan 12 2014

This sequence is part of a two-dimensional array of sequences, given in the LINK, based on this same idea for any two different bases b, c > 1. Sequence A235265 and A235266 are the most elementary ones in this list. Sequences A089971, A089981 and A090707 through A090721, and sequences A065720 - A065727, follow the same idea with one base equal to 10.

For further motivation and cross-references, see sequence A235265 which is the main entry for this whole family of sequences.

			5 = 101_2 and 101_6 = 37 are both prime, so 5 is a term.
7 = 111_2 and 111_6 = 43 are both prime, so 7 is a term.

Harvey P. Dale, Table of n, a(n) for n = 1..1000
M. F. Hasler, Primes whose base c expansion is also the base b expansion of a prime

Cf. A235463 ⊂ A077720, A235475, A152079, A235266, A065720 ⊂ A036952, A065721 - A065727, A089971 ⊂ A020449, A089981, A090707 - A091924, A235394, A235395, A235461 - A235482. See the LINK for further cross-references.

Select[Prime[Range[300]],PrimeQ[FromDigits[IntegerDigits[#,2],6]]&] (* Harvey P. Dale, Jan 03 2022 *)

is(p,b=6)=isprime(vector(#d=binary(p),i,b^(#d-i))*d~)&&isprime(p)

A235619 Primes whose base-9 representation also is the base-4 representation of a prime.

Original entry on oeis.org

2, 3, 109, 181, 271, 829, 919, 1549, 1567, 6661, 6733, 6823, 8101, 8191, 8263, 13933, 14851, 15319, 22123, 59149, 59221, 59239, 59797, 59887, 61507, 65629, 65701, 72253, 72901, 73819, 118189, 118927, 119827, 124669, 125407, 126127, 126307, 132679, 132859

Offset: 1

M. F. Hasler, Jan 13 2014

This sequence is part of the two-dimensional array of sequences based on this same idea for any two different bases b, c > 1. Sequence A235265 and A235266 are the most elementary ones in this list. Sequences A089971, A089981 and A090707 through A090721, and sequences A065720 - A065727, follow the same idea with one base equal to 10.

			E.g., 109 = 131_9 and 131_4 = 29 are both prime.

Robert Price, Table of n, a(n) for n = 1..1296
M. F. Hasler, Primes whose base c expansion is also the base b expansion of a prime

Cf. A235481, A235265, A235266, A152079, A235461 - A235482, A065720 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924, A235615 - A235639. See the LINK for further cross-references.

is(p,b=4,c=9)=vecmax(d=digits(p,c))

forprime(p=1,3e3,is(p,9,4)&&print1(vector(#d=digits(p,4),i,9^(#d-i))*d~,",")) \\ To produce the terms, this is more efficient than to select them using straightforwardly is(.)=is(.,4,9)

A235629 Primes whose base-9 representation also is the base-5 representation of a prime.

Original entry on oeis.org

2, 3, 11, 19, 29, 31, 101, 109, 181, 191, 199, 281, 337, 739, 751, 769, 811, 821, 839, 919, 929, 991, 1459, 1489, 1549, 1721, 1741, 1811, 2269, 2281, 2371, 2389, 2441, 2459, 2531, 2539, 2551, 2953, 3089, 3109, 3251, 3271, 6571, 6599, 6661, 6907, 7309, 7321, 7489, 7537, 8039

Offset: 1

M. F. Hasler, Jan 13 2014

This sequence is part of the two-dimensional array of sequences based on this same idea for any two different bases b, c > 1. Sequence A235265 and A235266 are the most elementary ones in this list. Sequences A089971, A089981 and A090707 through A090721, and sequences A065720 - A065727, follow the same idea with one base equal to 10.

			Both 11 = 12_9 and 12_5 = 7 are prime.

Alois P. Heinz, Table of n, a(n) for n = 1..10000
M. F. Hasler, Primes whose base c expansion is also the base b expansion of a prime

Cf. A235482, A235265, A235266, A152079, A235461 - A235482, A065720 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924, A235615 - A235639. See the LINK for further cross-references.

pr95Q[n_]:=Module[{idn9=IntegerDigits[n,9]},Max[idn9]<5&&PrimeQ[ FromDigits[ idn9,5]]]; Select[Prime[Range[1100]],pr95Q] (* Harvey P. Dale, Nov 30 2022 *)

is(p,b=5,c=9)=vecmax(d=digits(p,c))

forprime(p=1,3e3,is(p,9,5)&&print1(vector(#d=digits(p,5),i,9^(#d-i))*d~,",")) \\ To produce the terms, this is more efficient than to select them using straightforwardly is(.)=is(.,5,9)

A267767 Numbers whose base-7 representation is a square when read in base 10.

Original entry on oeis.org

0, 1, 4, 13, 19, 27, 46, 49, 64, 81, 117, 139, 165, 190, 196, 225, 313, 361, 433, 460, 571, 603, 637, 705, 748, 837, 883, 931, 981, 1048, 1105, 1222, 1323, 1489, 1560, 1684, 1744, 2028, 2185, 2254, 2346, 2401, 2500, 2601, 2763, 2869, 3084, 3136, 3249, 3364, 3547, 3667, 3865, 3969, 4096

Offset: 1

M. F. Hasler, Jan 20 2016

Trivially includes powers of 49, since 49^k = 100..00_7 = 10^(2k) when read in base 10. Moreover, for any a(n) in the sequence, 49*a(n) is also in the sequence. One could call "primitive" the terms not of this form. These primitive terms include the subsequence 49^k + 2*7^k + 1 = (7^k+1)^2, k > 0, which yields A033934 when written in base 7.

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Cf. A267763 - A267769 for bases 3 through 9. The base-2 analog is A000302 = powers of 4.

For a "prime" analog see also A235265, A235266, A152079, A235461 - A235482, A065720 ⊂ A036952, A065721 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924.

[n: n in [0..10^4] | IsSquare(Seqint(Intseq(n, 7)))]; // Vincenzo Librandi, Dec 28 2016

Select[Range[0, 2 10^4], IntegerQ@Sqrt@FromDigits@IntegerDigits[#, 7] &] (* Vincenzo Librandi, Dec 28 2016 *)

is(n,b=7,c=10)=issquare(subst(Pol(digits(n,b)),x,c))

A267767_list = [int(s, 7) for s in (str(i**2) for i in range(10**6)) if max(s) < '7'] # Chai Wah Wu, Jan 20 2016

cp's OEIS Frontend

A267765 Numbers whose base-5 representation is a square when read in base 10.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Python

A267766 Numbers whose base-6 representation is a square when read in base 10.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Python

A231476 Primes whose base-3 representation is also the base-6 representation of a prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A235476 Primes whose base-2 representation also is the base-6 representation of a prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A235619 Primes whose base-9 representation also is the base-4 representation of a prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

PARI

A235629 Primes whose base-9 representation also is the base-5 representation of a prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

A267767 Numbers whose base-7 representation is a square when read in base 10.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI