This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A050810 From sequence A050782, the n's corresponding to the first occurrence of m (or 0 if not defined). 2
 0, 1, 106, 37, 53, 103, 42, 23, 29, 19, 0, 56, 21, 38, 18, 35, 17, 16, 14, 26, 0, 12, 96, 43, 913, 2081, 812, 703, 754, 24, 0, 165, 726, 64, 603, 15, 592, 27, 13, 479, 0, 261, 541, 277, 48, 1129, 437, 649, 524, 538, 0, 291, 406, 1359, 533, 93, 377, 466, 1052, 279, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS MATHEMATICA nmax = 60; Clear[f]; f[max_] := f[max] = (r = Reap[For[n = 1, n <= max, n++, k = 1; If[IntegerQ[n/10], m = 0, While[k <= max && Reverse[id = IntegerDigits[k*n]] != id, k++]; m = k]; Sow[{n, m}]]][[2, 1]]; a[0] = 0; a[n_] := (s = Select[r, #[[2]] == n &, 1]; If[s == {}, 0, s[[1, 1]]]); Table[a[n], {n, 0, nmax}]); f[nmax]; f[max = 2 nmax]; While[Print["max = ", max]; f[max] != f[max/2], max = 2 max]; A050810 = f[max] (* Jean-François Alcover, Dec 31 2015 *) CROSSREFS Cf. A002113, A050782. Sequence in context: A199522 A036201 A286287 * A234966 A104315 A181739 Adjacent sequences:  A050807 A050808 A050809 * A050811 A050812 A050813 KEYWORD nonn,base,nice AUTHOR Patrick De Geest, Oct 15 1999 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 18 10:50 EDT 2019. Contains 328147 sequences. (Running on oeis4.)