A046034 -id:A046034 - cp's OEIS frontend

A257629 Duplicate of A276729.

1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 3

Offset: 0

Giovanni Teofilatto, Jul 12 2015

dead

			a(10344) = 4 because 4 of the digits of 10344 (1, 0, 4 and 4) are nonprime.

Cf. A055642 (number of digits), A193238 (number of prime digits), A046034.

a[n_] := Length@ Intersection[ IntegerDigits[n], {0, 1, 4, 6, 8, 9}]; a/@ Range[0, 90] (* Giovanni Resta, Jul 14 2015 *)
Table[Count[IntegerDigits[n],?(!PrimeQ[#]&)],{n,0,100}] (* _Harvey P. Dale, Jan 16 2017 *)

a(n) = A055642(n) - A193238(n). - Michel Marcus, Jul 14 2015

Corrected and extended by Giovanni Resta, Jul 14 2015

Corrected and extended by Harvey P. Dale, Jan 16 2017

A361628 Sphenic numbers (products of 3 distinct primes) whose digits are primes.

Original entry on oeis.org

222, 255, 273, 322, 357, 555, 777, 2222, 2233, 2235, 2255, 2337, 2355, 2373, 2522, 2553, 2555, 2737, 2755, 3237, 3322, 3333, 3335, 3355, 3522, 3535, 3553, 3723, 5222, 5235, 5253, 5322, 5335, 5522, 5523, 5555, 5727, 5735, 5757, 7222, 7257, 7322, 7337, 7527, 7535, 7553, 7557

Offset: 1

Massimo Kofler, Mar 18 2023

Intersection of A046034 and A007304.

Cf. A102782.

Select[Flatten@ Table[FromDigits /@ Tuples[Prime[Range[4]], n], {n, 3, 4}], FactorInteger[#][[;; , 2]] == {1, 1, 1} &] (* Amiram Eldar, Mar 18 2023 *)

isok(k) = (omega(k)==3) && (bigomega(k)==3) && !#select(x->!isprime(x), digits(k)); \\ Michel Marcus, Mar 21 2023

A369331 Positive numbers whose decimal expansions are covered by that of prime numbers (without leading zeros).

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 22, 23, 25, 27, 29, 31, 32, 33, 35, 37, 41, 43, 47, 52, 53, 55, 57, 59, 61, 67, 71, 72, 73, 75, 77, 79, 83, 89, 97, 101, 103, 107, 109, 111, 112, 113, 115, 117, 119, 127, 131, 132, 133, 135, 137, 139, 149, 151, 157, 163, 167, 171

Offset: 1

Rémy Sigrist, Jan 20 2024

More formally: positive numbers with decimal expansion (d_1, ..., d_w) (where d_1 <> 0) such that for any i in 1..w, we have some j, k such that j <= i <= k and d_j <> 0 and (d_j, ..., d_k) corresponds to the decimal expansion of a prime number.
This sequence contains, among others, A000040, A046034 and A152242.
This sequence first differs from A152242 for n = 42: a(42) = 111 whereas A152242(42) = 112.

			The number 15195 belongs to the sequence for the following covering:
       151
         19
           5
       .....
       15195

Index entries for sequences related to decimal expansion of n

Cf. A000040, A046034, A152242.

is(n, base = 10) = { my (d = if (n, digits(n, base), [0]), ok = vector(#d), rem = #d); for (i = 1, #d, if (d[i], for (j = i, #d, if  (isprime( fromdigits( d[i..j], base)), for (k = i, j, if (ok[k]==0, ok[k]++; rem--; if (rem==0, return (1)))))))); return (0); }

cp's OEIS Frontend

A257629 Duplicate of A276729.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A361628 Sphenic numbers (products of 3 distinct primes) whose digits are primes.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI

A369331 Positive numbers whose decimal expansions are covered by that of prime numbers (without leading zeros).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI