A039996 - OEIS

This site is supported by donations to The OEIS Foundation.

A039996

Primes embedded in prime(n) as substrings.

1, 1, 1, 1, 1, 2, 2, 1, 3, 2, 2, 3, 1, 2, 2, 3, 2, 1, 2, 2, 3, 2, 2, 1, 2, 1, 2, 2, 1, 4, 3, 4, 5, 3, 1, 2, 3, 2, 3, 5, 4, 1, 2, 3, 4, 2, 3, 4, 3, 3, 4, 4, 3, 3, 4, 3, 2, 4, 3, 2, 4, 4, 3, 4, 4, 5, 3, 4, 4, 2, 4, 4, 4, 5, 5, 3, 3, 4, 1, 1, 3, 2, 4, 3, 3, 3, 1, 3, 2, 2, 3, 4, 2, 1, 1, 3, 2, 3, 5, 3, 4, 3, 3, 2, 4 (list; graph; refs; listen; history; text; internal format)

	OFFSET	`1,6`
	LINKS	`Table of n, a(n) for n=1..105.`
	FORMULA	`a(n) = A039997(prime(n)).`
	EXAMPLE	`a(26) = 1 since the only prime substring of "101" is 101.`
	MATHEMATICA	`f[n_] := Block[{id = IntegerDigits@ Prime@n, len = Floor[ Log[10, Prime@n] + 1]}, Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[id, k, 1], {k, len}], 1]], True]]; Array[f, 105] [From Robert G. Wilson v, Jun 28 2010]`
	CROSSREFS	`Different from A039994.` `Sequence in context: A094366 A124018 A111709 * A039994 A112200 A112221` `Adjacent sequences: A039993 A039994 A039995 * A039997 A039998 A039999`
	KEYWORD	`nonn,base`
	AUTHOR	`David W. Wilson`
	STATUS	`approved`

Content is available under The OEIS End-User License Agreement .

Last modified June 19 19:50 EDT 2013. Contains 226416 sequences.