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.

Previous Showing 11-20 of 20 results.

A195943 Zeroless prime powers: Intersection of A000961 and A052382.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 243, 251, 256, 257, 263, 269, 271, 277, 281, 283, 289, 293, 311
Offset: 1

Views

Author

M. F. Hasler, Sep 25 2011

Keywords

Comments

In contrast to A195942, we also allow for primes (p^n with n=1) in this sequence.

Crossrefs

Programs

  • Haskell
    a195943 n = a195943_list !! (n-1)
    a195943_list = filter ((== 1) . a010055) a052382_list
    -- Reinhard Zumkeller, Sep 27 2011
  • PARI
    for( n=1,9999, is_A000961(n) && is_A052382(n) && print1(n","))
    

Formula

A010055(a(n)) * A168046(a(n)) = 1. - Reinhard Zumkeller, Sep 27 2011

A195945 Powers of 13 which have no zero in their decimal expansion.

Original entry on oeis.org

1, 13, 169, 2197, 28561, 371293, 62748517, 137858491849, 3937376385699289
Offset: 1

Views

Author

M. F. Hasler, Sep 25 2011

Keywords

Comments

Probably finite. Is 3937376385699289 the largest term?
No further terms up to 13^25000. - Harvey P. Dale, Oct 01 2011
No further terms up to 13^45000. - Vincenzo Librandi, Jul 31 2013
No further terms up to 13^(10^9). - Daniel Starodubtsev, Mar 22 2020

Crossrefs

For other zeroless powers x^n, see A238938 (x=2), A238939, A238940, A195948, A238936, A195908, A195946 (x=11), A195945, A195942, A195943, A103662.
For the corresponding exponents, see A007377, A008839, A030700, A030701, A008839, A030702, A030703, A030704, A030705, A030706, A195944 and also A020665.
For other related sequences, see A052382, A027870, A102483, A103663.

Programs

  • Magma
    [13^n: n in [0..2*10^4] | not 0 in Intseq(13^n)]; // Bruno Berselli, Sep 26 2011
  • Mathematica
    Select[13^Range[0,250],DigitCount[#,10,0]==0&] (* Harvey P. Dale, Oct 01 2011 *)
  • PARI
    for(n=0,9999, is_A052382(13^n) && print1(13^n,","))
    

Formula

Equals A001022 intersect A052382 (as a set).
Equals A001022 o A195944 (as a function).

A195944 Numbers k such that 13^k has no zero in its decimal expansion.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 7, 10, 14
Offset: 1

Views

Author

M. F. Hasler, Sep 25 2011

Keywords

Comments

Probably finite. Is 14 the largest term?

Crossrefs

Programs

  • Magma
    [n: n in [0..1000] | not 0 in Intseq(13^n) ]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Select[Range[0,20],DigitCount[13^#,10,0]==0&] (* Harvey P. Dale, May 24 2023 *)
  • PARI
    for( n=0,9999, is_A052382(13^n) && print1(n","))
    

Formula

Equals { n | A001022(n) is in A052382 }.

Extensions

Keyword:fini removed by Jianing Song, Jan 28 2023 as finiteness is only conjectured.

A238938 Powers of 2 without the digit '0' in their decimal expansion.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 8192, 16384, 32768, 65536, 262144, 524288, 16777216, 33554432, 134217728, 268435456, 2147483648, 4294967296, 8589934592, 17179869184, 34359738368, 68719476736, 137438953472, 549755813888, 562949953421312, 2251799813685248, 147573952589676412928
Offset: 1

Views

Author

M. F. Hasler, Mar 07 2014

Keywords

Comments

Conjectured to be finite and complete. See the OEIS wiki page for further information, references and links.

Examples

			256 = 2^8 is in the sequence because 256 has a 2, a 5 and a 6 but no 0's.
512 = 2^9 is also in because it has a 1, a 2 and a 5 but no 0's.
1024 = 2^10 is not in the sequence because it has a 0.
		

Crossrefs

Programs

  • Mathematica
    Select[2^Range[0, 127], DigitCount[#, 10, 0] == 0 &] (* Alonso del Arte, Mar 07 2014 *)
  • PARI
    for(n=0,99,vecmin(digits(2^n))&& print1(2^n","))

Formula

a(n) = 2^A007377(n).

Extensions

'fini' keyword removed as finiteness is only conjectured by Max Alekseyev, Apr 10 2019

A238939 Powers of 3 without the digit '0' in their decimal expansion.

Original entry on oeis.org

1, 3, 9, 27, 81, 243, 729, 2187, 6561, 19683, 177147, 531441, 1594323, 4782969, 1162261467, 94143178827, 282429536481, 2541865828329, 7625597484987, 22876792454961, 617673396283947, 16677181699666569, 278128389443693511257285776231761
Offset: 1

Views

Author

M. F. Hasler, Mar 07 2014

Keywords

Comments

Conjectured to be finite and complete. See the OEIS wiki page for further information, references and links.

Crossrefs

For the zeroless numbers (powers x^n), see A238938, A238939, A238940, A195948, A238936, A195908, A195946, A195945, A195942, A195943, A103662.
For the corresponding exponents, see A007377, A008839, A030700, A030701, A008839, A030702, A030703, A030704, A030705, A030706, A195944.
For other related sequences, see A052382, A027870, A102483, A103663.

Programs

  • Mathematica
    Select[3^Range[0,100],DigitCount[#,10,0]==0&] (* Paolo Xausa, Oct 07 2023 *)
  • PARI
    for(n=0,99,vecmin(digits(3^n))&& print1(3^n","))

Formula

a(n) = 3^A030700(n).

Extensions

Keyword:fini removed by Jianing Song, Jan 28 2023 as finiteness is only conjectured.

A238936 Powers of 6 without the digit '0' in their decimal expansion.

Original entry on oeis.org

1, 6, 36, 216, 1296, 7776, 46656, 279936, 1679616, 2176782336, 16926659444736, 4738381338321616896, 36845653286788892983296, 17324272922341479351919144385642496
Offset: 1

Views

Author

M. F. Hasler, Mar 07 2014

Keywords

Comments

Conjectured to be finite and complete. See the OEIS wiki page for further information, references and links.

Crossrefs

Programs

  • Mathematica
    Select[6^Range[0,50],DigitCount[#,10,0]==0&] (* Harvey P. Dale, Dec 03 2020 *)
  • PARI
    for(n=0,99,vecmin(digits(6^n))&& print1(6^n","))

Formula

a(n)=6^A030702(n).

Extensions

Keyword:fini and keyword:full removed by Jianing Song, Jan 28 2023 as finiteness is only conjectured.

A238940 Powers of 4 without the digit '0' in their decimal expansion.

Original entry on oeis.org

1, 4, 16, 64, 256, 16384, 65536, 262144, 16777216, 268435456, 4294967296, 17179869184, 68719476736, 4722366482869645213696, 75557863725914323419136, 77371252455336267181195264
Offset: 1

Views

Author

M. F. Hasler, Mar 07 2014

Keywords

Comments

Conjectured to be finite and complete. See the OEIS wiki page for further information, references and links.

Crossrefs

For the zeroless numbers (powers x^n), see A238938, A238939, A238940, A195948, A238936, A195908, A195946, A195945, A195942, A195943.
For the corresponding exponents, see A007377, A008839, A030700, A030701, A030702, A030703, A030704, A030705, A030706, A195944.
For other related sequences, see A052382, A027870, A102483.

Programs

  • Mathematica
    Select[4^Range[0,50],DigitCount[#,10,0]==0&] (* Harvey P. Dale, Aug 31 2021 *)
  • PARI
    for(n=0,99,vecmin(digits(4^n))&& print1(4^n","))

Formula

a(n)=4^A030701(n).

Extensions

Keyword:fini removed by Jianing Song, Jan 28 2023 as finiteness is only conjectured.

A195985 Least prime such that p^2 is a zeroless n-digit number.

Original entry on oeis.org

2, 5, 11, 37, 107, 337, 1061, 3343, 10559, 33343, 105517, 333337, 1054133, 3333373, 10540931, 33333359, 105409309, 333333361, 1054092869, 3333333413, 10540925639, 33333333343, 105409255363, 333333333367, 1054092553583, 3333333333383, 10540925534207
Offset: 1

Views

Author

M. F. Hasler, Sep 26 2011

Keywords

Examples

			a(1)^2=4, a(2)^2=25, a(3)^2=121, a(4)^2=1369 are the least squares of primes with 1, 2, 3 resp. 4 digits, and these digits are all nonzero.
a(5)=107 since 101^2=10201 and 103^2=10609 both contain a zero digit, but 107^2=11449 does not.
a(1000)=[10^500/3]+10210 (500 digits), since primes below sqrt(10^999) = 10^499*sqrt(10) ~ 3.162e499 have squares of less than 1000 digits, between sqrt(10^999) and 10^500/3 = sqrt(10^1000/9) ~ 3.333...e499 they have at least one zero digit. Finally, the 7 primes between 10^500/3 and a(1000) also happen to have a "0" digit in their square, but not so
  a(1000)^2 = 11111...11111791755555...55555659792849
  = [10^500/9]*(10^500+5) + 6806*10^500+104237294.
		

Crossrefs

Programs

  • PARI
    a(n)={ my(p=sqrtint(10^n\9)-1); until( is_A052382(p^2), p=nextprime(p+2));p}

A227476 Numbers whose sum of semiprime divisors (A076290) is a positive square.

Original entry on oeis.org

4, 8, 9, 16, 25, 27, 32, 49, 64, 81, 121, 125, 128, 138, 169, 225, 243, 256, 289, 306, 343, 361, 426, 512, 516, 529, 625, 644, 675, 729, 841, 918, 961, 975, 1002, 1024, 1032, 1125, 1140, 1146, 1150, 1220, 1230, 1288, 1305, 1316, 1331, 1369, 1681, 1849, 2025
Offset: 1

Views

Author

Michel Lagneau, Jul 13 2013

Keywords

Comments

Except for the number 1, the sequence A195942 (Zeroless prime powers (excluding primes)) is a subsequence of this sequence because the set of divisors of the numbers of the form p^m with p prime and m >= 2 contains only one semiprime divisor, p^2.
The subset of the nonprime powers is {138, 225, 306, 426, 516, 644, 675, 918, ...}.

Examples

			138 is in the sequence because the divisors of 138 are {1, 2, 3, 6, 23, 46, 69, 138} and the sum of the semiprime divisors is 2*3 + 2*23 + 3*23 = 11^2.
		

Crossrefs

Programs

  • Mathematica
    semipSigma[n_] := DivisorSum[n, # &, PrimeOmega[#] == 2 &]; Select[Range[2000], (s = semipSigma[#]) > 0 && IntegerQ @ Sqrt[s] &] (* Amiram Eldar, May 10 2020 *)
  • PARI
    isok(n) = issquare(s = sumdiv(n, d, d*(bigomega(d)==2))) && (s>0); \\ Michel Marcus, Sep 16 2017

Extensions

Definition corrected by Michel Marcus, Sep 16 2017

A252482 Exponents n such that the decimal expansion of the power 12^n contains no zeros.

Original entry on oeis.org

0, 1, 2, 3, 5, 6, 8, 10, 14, 20, 26
Offset: 1

Views

Author

M. F. Hasler, Dec 17 2014

Keywords

Comments

Conjectured to be finite.
See A245853 for the actual powers 12^a(n).

Crossrefs

For zeroless powers x^n, see A238938 (x=2), A238939, A238940, A195948, A238936, A195908, A245852, A240945 (k=9), A195946 (x=11), A245853, A195945; A195942, A195943, A103662.
For the corresponding exponents, see A007377, A030700, A030701, A008839, A030702, A030703, A030704, A030705, A030706, this sequence A252482, A195944.
For other related sequences, see A052382, A027870, A102483, A103663.

Programs

  • Mathematica
    Select[Range[0,30],DigitCount[12^#,10,0]==0&] (* Harvey P. Dale, Apr 06 2019 *)
  • PARI
    for(n=0,9e9,vecmin(digits(12^n))&&print1(n","))
Previous Showing 11-20 of 20 results.