|
OFFSET
|
1,1
|
|
|
COMMENT
|
Indices where number 1 occured in A138789
There are no more primes for n<=5000
|
|
EXAMPLE
|
a(1)=61 because the number 16069585756555453525150594847464544434241404938373635343332313039282726252423222120291817161514131211101987654321 is prime
|
|
MATHEMATICA
|
b = {}; a = {}; Do[w = RealDigits[n]; w = First[w]; Do[AppendTo[a, w[[k]]], {k, 1, Length[w]}]; p = FromDigits[Reverse[a]]; If[PrimeQ[p], Print[n]; AppendTo[b, p]], {n, 1, 2000}]; b (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A000422, A116504, A007908, A116505, A138793, A138789.
Adjacent sequences: A138787 A138788 A138789 this_sequence A138791 A138792 A138793
Sequence in context: A093473 A000506 A008358 this_sequence A057534 A060061 A000507
|
|
KEYWORD
|
nonn,bref,more
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Mar 30 2008, Mar 31 2008
|
|
