|
Search: id:A097208
|
|
| |
|
| 40, 24, 19, 17, 16, 10, 23, 21, 92, 313, 155, 551, 2575, 757, 13537, 5525, 35133, 33953, 332975, 355573, 3157535, 1571573, 2732737, 3775555, 5737571, 37332775
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
a(27) = 75787577. No more terms < 10^8. - David Wasserman (dwasserm(AT)earthlink.net), Dec 27 2007
|
|
EXAMPLE
|
a(3)=17 because it is the least number that contains 3 primes in the sequence 1,7,8,15,23,38,61,99,160,259.
|
|
MATHEMATICA
|
f[n_] := Block[{id = IntegerDigits[n], t = Floor[ Log[10, n] + 1], b}, Do[ b[i] = id[[i]], {i, t}]; b[i_] := b[i] = Plus @@ Table[b[i - j], {j, t}]; k = t + 1; While[b[k] < n^2, k++ ]; Count[ PrimeQ[ Table[b[i], {i, k - 1}]], True]]; t = Table[0, {50}]; Do[c = f[n]; If[ t[[c + 1]] == 0, t[[c + 1]] = n; Print[c, " = ", n]], {n, 10, 12000000}]; t (from Robert G. Wilson v Oct 07 2004)
|
|
CROSSREFS
|
Cf. A098598.
Sequence in context: A033975 A033360 A029543 this_sequence A163956 A012859 A070724
Adjacent sequences: A097205 A097206 A097207 this_sequence A097209 A097210 A097211
|
|
KEYWORD
|
base,more,nonn,less
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Sep 17 2004
|
|
EXTENSIONS
|
Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 07 2004
a(25), a(27) and better definition from David Wasserman (dwasserm(AT)earthlink.net), Dec 27 2007
|
|
|
Search completed in 0.002 seconds
|
